--- library/http/http.tcl	2008-10-23 18:34:32.000000000 -0500
+++ /distro/source/a/tcl/http-2.7.2.tm	2009-11-19 11:48:14.000000000 -0600
@@ -943,10 +943,11 @@
 	return
     }
     if {$state(state) eq "connecting"} {
-	set state(state) "header"
 	if {[catch {gets $sock state(http)} n]} {
 	    return [Finish $token $n]
 	}
+	if {$n <= 0} return
+	set state(state) "header"
     } elseif {$state(state) eq "header"} {
 	if {[catch {gets $sock line} n]} {
 	    return [Finish $token $n]
