Index: openacs-4/packages/acs-automated-testing/tcl/http.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/http.tcl,v
diff -u -r1.2.2.1 -r1.2.2.2
--- openacs-4/packages/acs-automated-testing/tcl/http.tcl	18 Aug 2015 12:25:13 -0000	1.2.2.1
+++ openacs-4/packages/acs-automated-testing/tcl/http.tcl	20 Aug 2015 17:12:05 -0000	1.2.2.2
@@ -712,7 +712,6 @@
 proc http::Connect {token} {
     variable $token
     upvar 0 $token state
-    global errorInfo errorCode
     if {[eof $state(sock)] ||
 	[string length [fconfigure $state(sock) -error]]} {
 	    Finish $token "connect failed [fconfigure $state(sock) -error]" 1