--- a/EncodedStream.st	Wed Feb 22 10:56:46 2017 +0100
+++ b/EncodedStream.st	Wed Feb 22 11:15:28 2017 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2004 by eXept Software AG
               All Rights Reserved
@@ -55,7 +53,7 @@
     "
      |s|
      s := EncodedStream stream:Transcript encoder:(CharacterEncoder encoderToEncodeFrom:#utf8 into:#unicode).
-     s nextPutAll:('öäü' utf8Encoded)
+     s nextPutAll:('öäü' utf8Encoded)
     "
 !
 
@@ -66,7 +64,7 @@
      |baseStream s|
      baseStream := '' readWriteStream.
      s := EncodedStream stream:baseStream encoding:#utf8.
-     s nextPutAll:'öäü'.
+     s nextPutAll:'öäü'.
      baseStream reset; contents.
     "
 ! !
@@ -226,6 +224,14 @@
     stream close
 !
 
+collection
+    "return the underlying container; nil, if there is none (eg. external streams)"
+    
+    ^ stream collection
+
+    "Created: / 22-02-2017 / 11:15:00 / cg"
+!
+
 contents
 
     ^String streamContents: [:s|