Index: openacs-4/packages/assessment/tcl/as-item-display-sb-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-display-sb-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/tcl/as-item-display-sb-procs.tcl	10 Dec 2004 20:21:50 -0000	1.2
+++ openacs-4/packages/assessment/tcl/as-item-display-sb-procs.tcl	24 Dec 2004 15:32:38 -0000	1.3
@@ -120,10 +120,10 @@
     # numerical alphabetical randomized order_of_entry
     switch -exact $sort_order_type {
 	numerical {
-	    set data [lsort -real -index 1 $data]
+	    set data [lsort -real -index 0 $data]
 	}
 	alphabetical {
-	    set data [lsort -dictionary -index 1 $data]
+	    set data [lsort -dictionary -index 0 $data]
 	}
 	randomized {
 	    set data [util::randomize_list $data]