--- a/WriteStream.st	Mon Oct 05 11:09:31 2009 +0200
+++ b/WriteStream.st	Mon Oct 05 11:17:50 2009 +0200
@@ -439,7 +439,8 @@
     |nMore final position1Based|
 
     collection isNil ifTrue:[
-        ^ super nextPutAll:aCollection
+        super nextPutAll:aCollection.
+        ^ self
     ].
 
     position1Based := position - ZeroPosition + 1.
@@ -470,7 +471,7 @@
     position1Based := position1Based + nMore.
     (position1Based > readLimit) ifTrue:[readLimit := position1Based - 1].
     position := position1Based - 1 + ZeroPosition.
-    ^ aCollection
+    "/ ^ aCollection -- self
 !
 
 nextPutAll:aCollection startingAt:pos1 to:pos2
@@ -620,5 +621,9 @@
 !WriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.69 2009-07-08 18:01:03 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.70 2009-10-05 09:17:50 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.70 2009-10-05 09:17:50 cg Exp $'
 ! !