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.7 -r1.83.2.8
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	6 Jul 2006 11:32:57 -0000	1.83.2.7
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	21 Nov 2006 13:22:00 -0000	1.83.2.8
@@ -2366,7 +2366,8 @@
         set hostname $location_hostname
     } else {
         set hostname $Host_hostname
-        if { ![empty_string_p $Host_port] } {
+        if {!([string equal [ns_set get [ns_conn headers] "X-SSL-Request"] 1] &&
+	      [string equal $Host_port $default_port(https)])} {
             set port $Host_port
         }
     }