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.7.10.1 -r1.7.10.2
--- openacs-4/packages/acs-automated-testing/tcl/tclwebtest-procs.tcl	27 Aug 2013 11:50:27 -0000	1.7.10.1
+++ openacs-4/packages/acs-automated-testing/tcl/tclwebtest-procs.tcl	13 Oct 2013 10:18:26 -0000	1.7.10.2
@@ -83,7 +83,7 @@
 
     regexp {(:[0-9]*)?$} [util_current_location] match port
 
-    if { [exists_and_not_null port] } {
+    if { ([info exists port] && $port ne "") } {
         return "http://${ip_address}${port}"
     } else {
         return "http://$ip_address"