Index: openacs-4/packages/assessment/tcl/as-section-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-section-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/assessment/tcl/as-section-procs.tcl	9 Apr 2005 22:39:27 -0000	1.21
+++ openacs-4/packages/assessment/tcl/as-section-procs.tcl	13 Apr 2005 04:23:48 -0000	1.22
@@ -267,9 +267,9 @@
 	    }
 	}
     }
-
-    if {![empty_string_p $num_items]} {
-	set sorted_items [lreplace $sorted_items $num_items end]
+    
+    if {![empty_string_p $num_items] && [llength $sorted_items] > $num_items} {
+    	set sorted_items [lreplace $sorted_items $num_items end]
     }
 
     # save item order