@@ -673,11 +673,11 @@
     set result a:[gets $sock]
     lappend result b:[gets $sock]
     fconfigure $sock -blocking 1
     puts $s2 two
     flush $s2
-    fconfigure $sock -blocking 0
+    fconfigure $sock -blocking 1
     lappend result c:[gets $sock]
     fconfigure $sock -blocking 1
     close $s2
     close $s
     close $sock