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.91 -r1.91.2.1 --- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 14 Jul 2006 18:22:17 -0000 1.91 +++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 14 Dec 2006 13:55:10 -0000 1.91.2.1 @@ -2373,7 +2373,7 @@ set hostname $Host_hostname if { ![empty_string_p $Host_port] } { set port $Host_port - } + } } if { ![empty_string_p $port] && ![string equal $port $default_port($proto)] } {