--- a/WriteStream.st	Mon Aug 26 23:12:15 2019 +0200
+++ b/WriteStream.st	Mon Aug 26 23:13:04 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -485,7 +483,7 @@
                         __INST(readLimit) = __mkSmallInteger(pos);
                     }
                     __INST(position) = __mkSmallInteger(pos);
-                    RETURN ( self );
+                    RETURN ( anObject );
                 }
             } else if (cls == @global(ByteArray)) {
                 if (__isSmallInteger(anObject)
@@ -526,6 +524,7 @@
     ] ifFalse:[
         WriteError raiseErrorString:'write beyond writeLimit'
     ].
+    ^ anObject
 !
 
 nextPutAll:aCollection