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 -N -r1.126.2.19 -r1.126.2.20
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	2 Nov 2019 16:09:53 -0000	1.126.2.19
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	4 Nov 2019 17:30:04 -0000	1.126.2.20
@@ -131,7 +131,7 @@
         #}
         if {[nsv_array exists aa_test]
             && [nsv_get aa_test logindata logindata]
-            && [ns_conn peeraddr] in [list [dict get $logindata peeraddr] 127.0.0.1]
+            && [ns_conn peeraddr] in [list [dict get $logindata peeraddr] 127.0.0.1 ::1]
         } {
             #ns_log notice logindata=$logindata
             if {[dict exists $logindata user_id]} {