Index: openacs-4/packages/assessment/tcl/as-assessment-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-assessment-procs.tcl,v
diff -u -r1.33.2.2 -r1.33.2.3
--- openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	5 Feb 2007 14:18:47 -0000	1.33.2.2
+++ openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	23 Mar 2007 16:37:57 -0000	1.33.2.3
@@ -425,9 +425,9 @@
 	append error_list "<li>[_ assessment.assessment_not_public]</li>"
     }
 
-#    if {![empty_string_p $number_tries] && $number_tries > 0 && $number_tries >= $total_tries} {
-#	append error_list "<li>[_ assessment.assessment_too_many_tries]</li>"
-#    }
+    if {![empty_string_p $number_tries] && $number_tries > 0 && $number_tries <= $total_tries} {
+	append error_list "<li>[_ assessment.assessment_too_many_tries]</li>"
+    }
     if {![empty_string_p $wait_between_tries] && $wait_between_tries > $cur_wait_time} {
 	set pretty_wait_time [pretty_time -seconds [expr $wait_between_tries - $cur_wait_time]]
 	append error_list "<li>[_ assessment.assessment_wait_retry]</li>"