Index: utils/http/http.tcl
===================================================================
--- utils/http/http.tcl	(revision 12078)
+++ utils/http/http.tcl	(working copy)
@@ -196,7 +196,9 @@
         ($state(status) eq "timeout") || ($state(status) eq "error") ||
         ([info exists state(connection)] && ($state(connection) eq "close"))
     } then {
-        CloseSocket $state(sock) $token
+	if { [info exists state(sock)]} {
+	    CloseSocket $state(sock) $token
+	}
     }
     if {[info exists state(after)]} {
         after cancel $state(after)
