Index: openacs-4/packages/acs-authentication/tcl/test/authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/test/authentication-procs.tcl,v
diff -u -r1.1.2.12 -r1.1.2.13
--- openacs-4/packages/acs-authentication/tcl/test/authentication-procs.tcl	6 Oct 2021 14:08:12 -0000	1.1.2.12
+++ openacs-4/packages/acs-authentication/tcl/test/authentication-procs.tcl	7 Oct 2021 11:03:03 -0000	1.1.2.13
@@ -600,7 +600,16 @@
                 ns_return 200 text/plain [ad_conn auth_level]
             }
 
-            set login_list [sec_login_read_cookie]
+            #
+            # If over HTTPS, we look for the *_secure cookie
+            #
+            if { [security::secure_conn_p] || [ad_conn behind_secure_proxy_p]} {
+                set cookie_name "ad_user_login_secure"
+            } else {
+                set cookie_name "ad_user_login"
+            }
+            set login_list [split [ad_get_signed_cookie $cookie_name] ","]
+
             set login_info [list \
                                 user_id    [lindex $login_list 0] \
                                 issue_time [lindex $login_list 1] \