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 -N -r1.11 -r1.12
--- openacs-4/packages/acs-automated-testing/tcl/tclwebtest-procs.tcl	23 Apr 2018 07:17:58 -0000	1.11
+++ openacs-4/packages/acs-automated-testing/tcl/tclwebtest-procs.tcl	17 Jun 2018 19:27:56 -0000	1.12
@@ -82,7 +82,7 @@
 
     regexp {(:[0-9]*)?$} [util_current_location] match port
 
-    if { (info exists port] && $port ne "" } {
+    if { [info exists port] && $port ne "" } {
         return "http://${ip_address}${port}"
     } else {
         return "http://$ip_address"