--- a/EncodedStream.st	Mon Aug 26 10:35:24 2019 +0200
+++ b/EncodedStream.st	Mon Aug 26 10:35:45 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2004 by eXept Software AG
               All Rights Reserved
@@ -53,10 +55,10 @@
     "
      |s|
      s := EncodedStream stream:Transcript encoder:(CharacterEncoder encoderToEncodeFrom:#utf8 into:#unicode).
-     s nextPutAll:('öäü' utf8Encoded)
+     s nextPutAll:('öäü' utf8Encoded)
 
      |s|
-     s := EncodedStream stream:('öäü' readStream) encoder:(CharacterEncoder encoderToEncodeFrom:#utf8 into:#unicode).
+     s := EncodedStream stream:('öäü' readStream) encoder:(CharacterEncoder encoderToEncodeFrom:#utf8 into:#unicode).
      s next:3
     "
 
@@ -70,7 +72,7 @@
      |baseStream s|
      baseStream := '' readWriteStream.
      s := EncodedStream stream:baseStream encoding:#utf8.
-     s nextPutAll:'öäü'.
+     s nextPutAll:'öäü'.
      baseStream reset; contents.
 
      s contents
@@ -346,6 +348,9 @@
 !
 
 nextPutAll:aCollection
+    "Write each of the objects in aCollection to the receiver stream. 
+     Answer the receiver."
+
     encoder encodeString:aCollection on:stream 
 !