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.58 -r1.59
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	26 Nov 2009 14:10:24 -0000	1.58
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	4 Jan 2010 17:06:00 -0000	1.59
@@ -1730,8 +1730,8 @@
 
     lappend locations $insecure_location
     # if we have a secure location, add it
+    set host_map_https_port ""
     if { $sdriver ne "" } {
-        set host_map_https_port ""
         set secure_location "https://${host_name}"
         if {$secure_port ne "" && $secure_port ne "443"}  {
             append secure_location ":$secure_port"