--- a/Socket.st	Tue Dec 24 11:47:40 2013 +0100
+++ b/Socket.st	Fri Jan 24 15:00:11 2014 +0100
@@ -1644,14 +1644,16 @@
         "Send all of the data in the given array, even if it requires multiple calls to send it all.
          Return the number of bytes sent."
 
-        |remaining nWritten|
+        |remaining nWritten offset|
 
 "/ Transcript show:'>> '; showCR:aStringOrByteArray.
 
         remaining := aStringOrByteArray size.
+        offset := 1.
         [remaining > 0] whileTrue:[
-            nWritten := self nextPutBytes:remaining from:aStringOrByteArray startingAt:1.
+            nWritten := self nextPutBytes:remaining from:aStringOrByteArray startingAt:offset.
             remaining := remaining - nWritten.
+            offset := offset + nWritten.
         ].
         ^ aStringOrByteArray size.
 
@@ -4243,10 +4245,10 @@
 !Socket class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.291 2013-12-04 14:26:58 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.292 2014-01-24 14:00:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.291 2013-12-04 14:26:58 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.292 2014-01-24 14:00:11 cg Exp $'
 ! !