Index: openacs-4/packages/assessment/tcl/as-checks-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-checks-procs.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/assessment/tcl/as-checks-procs.tcl	18 Feb 2005 17:07:33 -0000	1.16
+++ openacs-4/packages/assessment/tcl/as-checks-procs.tcl	21 Feb 2005 21:45:34 -0000	1.17
@@ -390,7 +390,7 @@
     set assessment_rev_id [db_string get_assessment_id {}]
     
 	set checks [db_list_of_lists section_checks {}]
-	foreach check $checks {
+	foreach check_id $checks {
 	    set info [db_0or1row check_info {}]
 	    set perform [db_string check_sql $check_sql]
 	    if {$action_p == "t"} {