--- a/Collection.st	Wed Nov 07 19:55:36 2018 +0100
+++ b/Collection.st	Wed Nov 07 22:18:17 2018 +0100
@@ -2332,6 +2332,21 @@
     "
 !
 
+readingStreamDo:aBlock
+    "simular to FileStream readingFileDo:,
+     this evaluates aBlock passing a readStream on the receiver"
+
+    ^ aBlock value:(self readStream)
+
+    "
+     'hello world' readingStreamDo:[:s |
+        Transcript showCR:(s next:5).
+     ]                
+    "
+
+    "Created: / 07-11-2018 / 22:17:45 / Claus Gittinger"
+!
+
 writeStream
     "return a stream for writing onto the receiver"