Index: openacs-4/packages/acs-bootstrap-installer/installer/site-info.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/installer/Attic/site-info.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-bootstrap-installer/installer/site-info.tcl	3 Jul 2002 09:16:25 -0000	1.3
+++ openacs-4/packages/acs-bootstrap-installer/installer/site-info.tcl	30 Nov 2002 17:14:05 -0000	1.4
@@ -14,6 +14,12 @@
 # hostname, use yourdomain.com if that fails too.
 if { [catch {
     set system_url "http://[ns_config "ns/server/[ns_info server]/module/nssock" hostname [ns_info hostname]]"
+
+    # append port number if non-standard port
+    if { !([ns_conn port] == 0 || [ns_conn port] == 80) } {
+        append system_url ":[ns_conn port]"
+    }
+
 }] } {
     set system_url "http://yourdomain.com"
 }