Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -r1.126.2.106 -r1.126.2.107
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	15 Jul 2024 12:04:49 -0000	1.126.2.106
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	18 Jul 2024 08:44:53 -0000	1.126.2.107
@@ -146,10 +146,10 @@
                 #ad_conn -set session_id [sec_allocate_session]
                 set auth_level ok
                 set untrusted_user_id $user_id
-                set ::__aa_testing_mode 1
+                aa_test_start
             }
         }
-        if {![info exists ::__aa_testing_mode]} {
+        if {![aa_test_running_p]} {
             sec_login_handler
         }