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.18 -r1.140.2.19
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	16 Dec 2015 21:10:26 -0000	1.140.2.18
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	17 Dec 2015 17:09:13 -0000	1.140.2.19
@@ -2578,7 +2578,7 @@
     }
     if {$proto eq ""} {
         set proto http
-        set port  default_port($proto)
+        set port  $default_port($proto)
     }
 
     set headers [ns_conn headers]
@@ -2596,7 +2596,7 @@
         #
         # reset to the default port
         #
-        set port default_port($proto)
+        set port $default_port($proto)
     }
     
     #