--- a/WriteStream.st	Thu May 19 10:51:48 2016 +0200
+++ b/WriteStream.st	Thu May 19 10:52:06 2016 +0200
@@ -184,7 +184,7 @@
      See the comment in WriteStream>>contents"
 
     collection := collection species new:(collection size).
-    super reset
+    position := 0.
 
     "Modified: 19.2.1997 / 08:57:00 / stefan"
 ! !