Here's a hack I did on my OpenACS 5 install to get it to work:
Index: utilities-procs.tcl
===================================================================
RCS file: /var/cvs/safe4all/packages/acs-tcl/tcl/utilities-procs.tcl,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 utilities-procs.tcl
--- utilities-procs.tcl 1 Jun 2004 17:45:40 -0000 1.1.1.1
+++ utilities-procs.tcl 4 Jun 2004 04:31:11 -0000
@@ -2685,6 +2685,10 @@
}
}
+ # HACK TO WORK WITH NON-STANDARD PORTS, as per
+ # https://openacs.org/forums/message-view?message_id=84289
+ return "$proto://$hostname"
+
if { ![empty_string_p $port] && ![string equal $port $default_port($proto)] } {
return "$proto://$hostname:$port"
} else {
