--- a/CollectingReadStream.st	Sun Aug 18 12:56:19 2013 +0200
+++ b/CollectingReadStream.st	Sun Aug 18 12:56:38 2013 +0200
@@ -55,6 +55,14 @@
 
 atEnd
     ^ inStream atEnd
+!
+
+contentsSpecies
+    "return a class of which instances will be returned, when
+     parts of the collection are asked for. 
+     (see upTo-kind of methods in Stream)"
+
+    ^ inStream contentsSpecies.
 ! !
 
 !CollectingReadStream methodsFor:'stream protocol'!
@@ -126,6 +134,6 @@
 !CollectingReadStream class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/CollectingReadStream.st,v 1.4 2013-08-10 11:31:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/CollectingReadStream.st,v 1.5 2013-08-18 10:56:38 cg Exp $'
 ! !