--- capa/capa51/GUITools/scorer.anon.tcl	1999/09/28 21:25:37	1.1
+++ capa/capa51/GUITools/scorer.anon.tcl	2000/04/27 20:19:46	1.2
@@ -32,6 +32,7 @@ proc getAnonModeID { num answerStructVar
 	}
 #    }]
     set highest [lindex [lsort -decreasing -integer [array names which]] 0]
+    if {$highest != 6} { return "" }
     set answerStruct(indices) $which($highest)
     foreach index $which($highest) {
 	lappend result [lindex [lindex $gScorer(studentList.$num) $index] 1]