Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl,v
diff -u -r1.79.2.38 -r1.79.2.39
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	7 Feb 2021 18:53:28 -0000	1.79.2.38
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	14 Feb 2021 21:05:52 -0000	1.79.2.39
@@ -793,9 +793,6 @@
     @author Peter Harper
     @creation-date 24 July 2001
 } {
-    global aa_testcase_id
-    global aa_package_key
-
     if {$affirm_actual eq $affirm_value} {
         aa_log_result "pass" [subst {[aa_indent] $affirm_name, actual = "$affirm_actual"}]
         return 1