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.109 -r1.110
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	7 Jun 2008 20:28:58 -0000	1.109
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	30 Aug 2008 11:19:11 -0000	1.110
@@ -2370,7 +2370,15 @@
     set Hostv [split $Host ":"]
     set Host_hostname [lindex $Hostv 0]
     set Host_port [lindex $Hostv 1]
-    
+
+    # suppress the configured http port when server is behind a proxy, to keep connection behind proxy
+    set suppress_port [parameter::get -package_id [ad_acs_kernel_id] -parameter SuppressHttpPort -default 0]
+    if { $suppress_port && [string equal $port [ns_config -int "ns/server/[ns_info server]/module/nssock" Port]] } {
+        ns_log Debug "util_current_location: suppressing http port $Host_port"
+        set Host_port ""
+        set port ""
+    }
+
     # Server config location
     if { ![regexp {^([a-z]+://)?([^:]+)(:[0-9]*)?$} [ad_conn location] match location_proto location_hostname location_port] } {
         ns_log Error "util_current_location couldn't regexp '[ad_conn location]'"