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.18 -r1.126.2.19
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	31 Oct 2019 18:15:25 -0000	1.126.2.18
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	2 Nov 2019 16:09:53 -0000	1.126.2.19
@@ -125,13 +125,13 @@
         # aa_test.
         #
         #if {[nsv_array exists aa_test]} {
-        #    ns_log notice "nsv_array logindata [nsv_get aa_test logindata logindata]"
-        #    ns_log notice "ns_conn peeraddr [ns_conn peeraddr]"
-        #    ns_log notice "dict get $logindata peeraddr [dict get $logindata peeraddr]"
+        #    ns_log notice "... nsv_array logindata [nsv_get aa_test logindata logindata]"
+        #    ns_log notice "... ns_conn peeraddr [ns_conn peeraddr]"
+        #    ns_log notice "... dict get $logindata peeraddr [ns_conn peeraddr]"
         #}
         if {[nsv_array exists aa_test]
             && [nsv_get aa_test logindata logindata]
-            && [ns_conn peeraddr] eq [dict get $logindata peeraddr]
+            && [ns_conn peeraddr] in [list [dict get $logindata peeraddr] 127.0.0.1]
         } {
             #ns_log notice logindata=$logindata
             if {[dict exists $logindata user_id]} {