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.140.2.19 -r1.140.2.20
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	17 Dec 2015 17:09:13 -0000	1.140.2.19
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	31 Dec 2015 17:40:42 -0000	1.140.2.20
@@ -2568,7 +2568,7 @@
             lassign [split $proto :] proto .
         }
         if {$port eq ""} {
-            set port $default_port($location_proto)
+            set port $default_port($proto)
         }
     } else {
         ns_log Error "util_current_location got invalid information from driver '[ns_conn location]'"