Index: openacs-4/packages/acs-bootstrap-installer/installer/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/installer/index.tcl,v
diff -u -N -r1.17.2.4 -r1.17.2.5
--- openacs-4/packages/acs-bootstrap-installer/installer/index.tcl	11 Dec 2003 02:12:26 -0000	1.17.2.4
+++ openacs-4/packages/acs-bootstrap-installer/installer/index.tcl	9 Feb 2004 15:37:12 -0000	1.17.2.5
@@ -265,13 +265,13 @@
 
     # Get the default for system_url. First try to get it from the nssock
     # hostname setting - if that is not available then try ns_info
-    # 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]]"
+        set system_port [ns_config "ns/server/[ns_info server]/module/nssock" port [ns_conn port]]
 
         # append port number if non-standard port
-        if { !([ns_conn port] == 0 || [ns_conn port] == 80) } {
-            append system_url ":[ns_conn port]"
+        if { !($system_port == 0 || $system_port == 80) } {
+            append system_url ":$system_port"
         }
 
     }] } {
@@ -339,7 +339,7 @@
 
 <tr>
   <th align=right>System URL:</th>
-  <td>[install_input_widget system_url]<br>
+  <td>[install_input_widget -value $system_url system_url]<br>
 The canonical URL of your system as visible from the outside world<br>
 Usually it should include the port if your server is not on port 80<br><br>
 </tr>