--- a/EncodedStream.st	Mon Aug 26 23:19:16 2019 +0200
+++ b/EncodedStream.st	Mon Aug 26 23:21:56 2019 +0200
@@ -343,6 +343,7 @@
 
 nextPut:aCharacter
     encoder encodeCharacter:aCharacter on:stream.
+    ^ aCharacter
 
     "Modified: / 16-02-2017 / 16:22:23 / stefan"
 !