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"} {
Index: openacs-4/packages/assessment/tcl/as-checks-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-checks-procs.xql,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/assessment/tcl/as-checks-procs.xql	18 Feb 2005 17:07:33 -0000	1.12
+++ openacs-4/packages/assessment/tcl/as-checks-procs.xql	21 Feb 2005 21:45:34 -0000	1.13
@@ -254,7 +254,7 @@
       <querytext>
         select * from as_inter_item_checks c,as_action_map am where
       c.inter_item_check_id=am.inter_item_check_id and am.action_perform='aa'
-      and  c.assessment_id=:assessment_id and c.inter_item_check_id=:check order by am.order_by 
+      and  c.assessment_id=:assessment_id and c.inter_item_check_id=:check_id order by am.order_by 
       </querytext>
 </fullquery>
 <fullquery name="as::assessment::check::eval_m_checks.get_assessment_id">