Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.83.2.8 -r1.83.2.9
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	21 Nov 2006 13:22:00 -0000	1.83.2.8
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	21 Nov 2006 14:10:38 -0000	1.83.2.9
@@ -2366,10 +2366,9 @@
         set hostname $location_hostname
     } else {
         set hostname $Host_hostname
-        if {!([string equal [ns_set get [ns_conn headers] "X-SSL-Request"] 1] &&
-	      [string equal $Host_port $default_port(https)])} {
+        if { ![empty_string_p $Host_port] } {
             set port $Host_port
-        }
+        }    
     }
 
     if { ![empty_string_p $port] && ![string equal $port $default_port($proto)] } {