Index: openacs-4/packages/acs-automated-testing/tcl/tclwebtest-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/tclwebtest-procs.tcl,v diff -u -r1.2 -r1.2.2.1 --- openacs-4/packages/acs-automated-testing/tcl/tclwebtest-procs.tcl 20 Apr 2004 14:08:14 -0000 1.2 +++ openacs-4/packages/acs-automated-testing/tcl/tclwebtest-procs.tcl 19 Oct 2005 10:57:45 -0000 1.2.2.1 @@ -74,6 +74,11 @@ } { set ip_address [ns_config ns/server/[ns_info server]/module/nssock Address] + # If the IP is not configured in the config.tcl we will use the ip of localhost + if {[empty_string_p $ip_address]} { + set ip_address 127.0.0.1 + } + regexp {(:[0-9]*)?$} [util_current_location] match port if { [exists_and_not_null port] } {