--- a/CollectingReadStream.st	Sat May 25 23:49:00 2019 +0200
+++ b/CollectingReadStream.st	Sun May 26 01:31:28 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2009 by Claus Gittinger
               All Rights Reserved
@@ -112,6 +114,12 @@
     ^ inStream atEnd
 !
 
+contents
+    ^ nil.
+
+    "Created: / 26-05-2019 / 00:52:54 / Claus Gittinger"
+!
+
 contentsSpecies
     "return a class of which instances will be returned, when
      parts of the collection are asked for. 
@@ -180,6 +188,12 @@
     "Created: / 26-10-2011 / 17:22:42 / cg"
 !
 
+position:newPos
+    inStream position:newPos
+
+    "Created: / 26-05-2019 / 00:57:19 / Claus Gittinger"
+!
+
 readStream
     ^ self