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.67 -r1.140.2.68
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	28 Mar 2017 14:39:57 -0000	1.140.2.67
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	3 Apr 2017 04:31:50 -0000	1.140.2.68
@@ -1872,7 +1872,7 @@
         set result [util::join_location \
                         -proto [dict get $components proto] \
                         -hostname [dict get $components host] \
-                        -port [dict get $components port] \
+                        -port [expr {[dict exists $components port] ? [dict get $components port] : ""}] \
                        ]
         set fullpath [dict get $components path]/[dict get $components tail]
         append result / [ad_urlencode_folder_path $fullpath]