--- a/WriteStream.st	Thu Jul 24 15:19:05 2014 +0200
+++ b/WriteStream.st	Fri Jul 25 23:20:34 2014 +0200
@@ -324,6 +324,10 @@
     (position1Based > readLimit) ifTrue:[readLimit := position1Based - 1].
     position := position1Based - 1.
     "/ ^ anObject -- return self
+
+    "
+     '' writeStream next:10 put:$*
+    "
 !
 
 next:n putAll:aCollection startingAt:pos1
@@ -660,10 +664,10 @@
 !WriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.83 2014-03-04 15:05:28 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.84 2014-07-25 21:20:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.83 2014-03-04 15:05:28 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.84 2014-07-25 21:20:34 cg Exp $'
 ! !