--- a/Socket.st	Tue Jan 28 13:48:23 2014 +0100
+++ b/Socket.st	Tue Jan 28 14:00:16 2014 +0100
@@ -1655,7 +1655,8 @@
             nWritten == 0 ifTrue:[
                 "/ seems to be blocking - give others a chance to do something useful
                 "/ now (instead of spinning here until my timeslice ends)
-                Processor yield
+                self writeWait.
+                "/ Processor yield
             ] ifFalse:[
                 remaining := remaining - nWritten.
                 offset := offset + nWritten.
@@ -4251,10 +4252,10 @@
 !Socket class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.293 2014-01-28 12:48:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.294 2014-01-28 13:00:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.293 2014-01-28 12:48:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.294 2014-01-28 13:00:16 cg Exp $'
 ! !