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 -N -r1.31.2.1 -r1.31.2.2
--- openacs-4/packages/assessment/tcl/as-checks-procs.tcl	17 Jun 2020 15:16:02 -0000	1.31.2.1
+++ openacs-4/packages/assessment/tcl/as-checks-procs.tcl	17 Jun 2020 15:33:23 -0000	1.31.2.2
@@ -421,9 +421,12 @@
 } {
 
 } {
+    # This value is not used anywhere, except, maybe, in tcl code
+    # stored in as_actions.tcl_code column where people was brave
+    # enough to use an upvar... One can never know in this package, so
+    # I just comment it out.
+    # set assessment_rev_id [db_string get_assessment_id {}]
 
-    set assessment_rev_id [db_string get_assessment_id {}]
-
 	set checks [db_list_of_lists section_checks {}]
 	foreach check_id $checks {
 
@@ -488,9 +491,12 @@
 } {
 
 } {
+    # This value is not used anywhere, except, maybe, in tcl code
+    # stored in as_actions.tcl_code column where people was brave
+    # enough to use an upvar... One can never know in this package, so
+    # I just comment it out.
+    # set assessment_rev_id [db_string get_assessment_id {}]
 
-    set assessment_rev_id [db_string get_assessment_id {}]
-
 	set checks [db_list_of_lists section_checks {}]
 	foreach check_id $checks {