--- a/Collection.st	Wed May 09 00:04:21 2018 +0200
+++ b/Collection.st	Wed May 09 00:05:00 2018 +0200
@@ -3643,33 +3643,6 @@
     "Created: / 20-07-2011 / 00:54:41 / cg"
 !
 
-readingElementsDo:aBlock
-    "Create a read stream on the receiver, evaluate aBlock, passing that stream as arg,
-     and return the block's value.
-     This is performing much like fileName readingFileDo:.
-     The difference to the well known do: enumerators is that the block can decide
-     if more than one element is to be read (eg. to skip elements)."
-
-    |stream|
-
-    stream := self readStream.
-    ^ aBlock value:stream optionalArgument:[:ret | ^ ret].
-
-    "
-     increasing :=
-        #(10 20 15 30 40) readingElementsDo:[:s :exit |
-            |el1 el2|
-            
-            [s atEnd] whileFalse:[
-                el1 := s next.
-                el2 := s peek.
-                (el2 notNil and:[ el1 > el2]) ifTrue:[exit value:false]
-            ].
-            true
-        ].    
-    "
-!
-
 reduce:binaryBlock
     "Evaluate the block with the first two elements of the receiver,
      then with the result of the first evaluation and the next element,