--- a/WriteStream.st	Thu Oct 23 17:44:24 2003 +0200
+++ b/WriteStream.st	Thu Oct 23 17:45:35 2003 +0200
@@ -428,7 +428,7 @@
     |nMore final position1Based|
 
     collection isNil ifTrue:[
-	^ super nextPutAll:aCollection
+        ^ super nextPutAll:aCollection
     ].
 
     position1Based := position - ZeroPosition + 1.
@@ -437,16 +437,17 @@
     final := position1Based + nMore - 1.
     (writeLimit notNil
     and:[final > writeLimit]) ifTrue:[
-	final := writeLimit.
-	nMore := final - position1Based + 1
+        final := writeLimit.
+        nMore := final - position1Based + 1
     ].
     (final > collection size) ifTrue:[
-	self growCollection:final
+        self growCollection:final
     ].
-    collection replaceFrom:position1Based
-			to:final
-		      with:aCollection 
-		startingAt:1.
+    collection 
+        replaceFrom:position1Based
+        to:final
+        with:aCollection 
+        startingAt:1.
 
     position1Based := position1Based + nMore.
     (position1Based > readLimit) ifTrue:[readLimit := position1Based - 1].
@@ -502,5 +503,5 @@
 !WriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.54 2003-09-23 12:34:27 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.55 2003-10-23 15:45:27 cg Exp $'
 ! !