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.124 -r1.125
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	23 Jul 2010 14:02:52 -0000	1.124
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	3 Oct 2010 22:14:52 -0000	1.125
@@ -2486,7 +2486,7 @@
     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]
+    set suppress_port [parameter::get -package_id [apm_package_id_from_key acs-tcl] -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 ""