--- a/WriteStream.st	Mon Jun 03 20:33:49 2013 +0200
+++ b/WriteStream.st	Mon Jun 03 20:39:07 2013 +0200
@@ -424,9 +424,9 @@
 %}.
     (writeLimit isNil
     or:[(position + 1) <= writeLimit]) ifTrue:[
-        ((position + 1) > collection size) ifTrue:[self growCollection].
+        (position >= collection size) ifTrue:[self growCollection].
         collection at:(position + 1) put:anObject.
-        ((position + 1) > readLimit) ifTrue:[readLimit := (position + 1)].
+        (position >= readLimit) ifTrue:[readLimit := (position + 1)].
         position := position + 1.
     ] ifFalse:[
         WriteError raiseErrorString:'write beyond writeLimit'
@@ -632,10 +632,10 @@
 !WriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.77 2013-06-03 17:46:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.78 2013-06-03 18:39:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.77 2013-06-03 17:46:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.78 2013-06-03 18:39:07 cg Exp $'
 ! !