Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v
diff -u -r1.153.2.61 -r1.153.2.62
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	22 May 2024 08:34:28 -0000	1.153.2.61
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	29 May 2024 09:24:37 -0000	1.153.2.62
@@ -1809,7 +1809,10 @@
                             set ad_conn(behind_secure_proxy_p) 0
                             if {[ad_conn behind_proxy_p]} {
                                 set ad_conn(behind_secure_proxy_p) \
-                                    [expr {[ns_set iget [ns_conn headers] X-SSL-Request] == 1}]
+                                    [expr {
+                                           [ns_set iget [ns_conn headers] X-SSL-Request] == 1
+                                           || [ns_set iget [ns_conn headers] X-Forwarded-Proto] eq "https"
+                                       }]
                             }
                             return $ad_conn(behind_secure_proxy_p)
                         }