Index: openacs-4/packages/assessment/www/assessment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/assessment.tcl,v
diff -u -r1.40 -r1.41
--- openacs-4/packages/assessment/www/assessment.tcl	11 Mar 2005 18:54:12 -0000	1.40
+++ openacs-4/packages/assessment/www/assessment.tcl	31 Mar 2005 10:15:27 -0000	1.41
@@ -127,7 +127,7 @@
 	    # show next items on section page
 	    if {![empty_string_p $display(num_items)]} {
 		# make sure to display correct section page
-		set item_order [expr $item_order - (($item_order+1) % $display(num_items))]
+		set item_order [expr $item_order - ($item_order % $display(num_items))]
 	    } elseif {$display(submit_answer_p) == "t"} {
 		# show whole section when picking up a seperate submit section
 		set item_order 0