Index: openacs-4/packages/assessment/lib/assessment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/assessment.tcl,v
diff -u -r1.18.2.7 -r1.18.2.8
--- openacs-4/packages/assessment/lib/assessment.tcl	23 Jul 2007 22:57:12 -0000	1.18.2.7
+++ openacs-4/packages/assessment/lib/assessment.tcl	24 Jul 2007 14:47:34 -0000	1.18.2.8
@@ -517,7 +517,10 @@
     }"
 
     set after_submit "{
-	if {!\[empty_string_p \$new_section_order\]} {
+\# NOTE the code just incrementes section order so when the section order
+\# is greate than the number of items in the list of sections
+\# we know we are done and should finish the assessment
+	if {!\[empty_string_p \$new_section_order\] && \$new_section_order <= [llength \$section_list]} {
 	    # go to next section
             if { \$section_to != \"\"} {
                 set section_order \$section_to