--- a/Socket.st	Thu Mar 21 23:58:38 2013 +0100
+++ b/Socket.st	Tue Mar 26 13:37:38 2013 +0100
@@ -1572,22 +1572,22 @@
 !
 
 sendData: aStringOrByteArray
-	"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."
-
-	"An experimental version for use on slow lines:
-	 Longer timeout and smaller writes to try to avoid spurious timeouts."
-
-	|remaining nWritten|
-
-Transcript show:'>> '; showCR:aStringOrByteArray.
-
-	remaining := aStringOrByteArray size.
-	[remaining > 0] whileTrue:[
-	    nWritten := self nextPutBytes:remaining from:aStringOrByteArray startingAt:1.
-	    remaining := remaining - nWritten.
-	].
-	^ aStringOrByteArray size.
+        "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."
+
+        "An experimental version for use on slow lines:
+         Longer timeout and smaller writes to try to avoid spurious timeouts."
+
+        |remaining nWritten|
+
+"/ Transcript show:'>> '; showCR:aStringOrByteArray.
+
+        remaining := aStringOrByteArray size.
+        [remaining > 0] whileTrue:[
+            nWritten := self nextPutBytes:remaining from:aStringOrByteArray startingAt:1.
+            remaining := remaining - nWritten.
+        ].
+        ^ aStringOrByteArray size.
 
 "/        | bytesSent bytesToSend count |
 "/        bytesToSend := aStringOrByteArray size.
@@ -4056,9 +4056,10 @@
 !Socket class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.279 2013-03-15 15:54:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.280 2013-03-26 12:37:38 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.279 2013-03-15 15:54:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.280 2013-03-26 12:37:38 cg Exp $'
 ! !
+