--- a/EncodedStream.st	Mon Aug 26 23:21:56 2019 +0200
+++ b/EncodedStream.st	Mon Aug 26 23:47:33 2019 +0200
@@ -342,6 +342,9 @@
 !
 
 nextPut:aCharacter
+    "write the argument, aCharacter.
+     Answer aCharacter"
+
     encoder encodeCharacter:aCharacter on:stream.
     ^ aCharacter