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 -N -r1.140.2.83 -r1.140.2.84
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	28 Jul 2017 09:52:36 -0000	1.140.2.83
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	14 Sep 2018 11:56:34 -0000	1.140.2.84
@@ -2676,7 +2676,7 @@
     return $result
 }
 
-ad_proc -public util::configured_location {} {
+ad_proc -public util::configured_location {{-suppress_port:boolean}} {
 
     Return the configured location as configured for the current
     network driver. While [util_current_location] honors the virtual
@@ -2695,7 +2695,7 @@
     return [util::join_location \
                 -proto    [dict get $driver_info proto] \
                 -hostname [dict get $driver_info hostname] \
-                -port     [dict get $driver_info port]]
+                -port     [expr {$suppress_port_p ? "" : [dict get $driver_info port]}]]
 }
 
 ad_proc -public util_current_location {} {