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.32.2.4 -r1.32.2.5
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	29 Jul 2004 23:16:04 -0000	1.32.2.4
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	18 Nov 2004 16:17:33 -0000	1.32.2.5
@@ -1400,7 +1400,7 @@
 
     @author Peter Marklund
 } {
-    set_insecure_url [get_insecure_qualified_url $url]
+    set insecure_url [get_insecure_qualified_url $url]
     
     ad_returnredirect $insecure_url
     ad_script_abort
@@ -1531,6 +1531,7 @@
     } else {
         # Current location is secure - use location from config file
         set insecure_location [ad_conn location]
+        regsub -all {https://} $insecure_location "" insecure_location
         if { ![regexp $http_prefix $insecure_location] } {
             # Prepend http://
             set insecure_location ${http_prefix}${insecure_location}