--- capa/capa51/GUITools/scorer.anon.tcl	2000/08/07 20:47:29	1.4
+++ capa/capa51/GUITools/scorer.anon.tcl	2000/09/26 13:34:48	1.5
@@ -91,7 +91,7 @@ proc pickAnonHighest { num answerStructV
 			    $studentNumber]
     }
 #    puts $scores
-    set scores [lsort -index 0 -integer $scores]
+    set scores [lsort -decreasing -index 0 -integer $scores]
 #    puts $scores
 #    puts [lindex [lindex $scores 0] 1]
     return [lindex [lindex $scores 0] 1]