--- a/Collection.st	Sun Jan 01 16:23:18 2017 +0100
+++ b/Collection.st	Sun Jan 01 16:23:38 2017 +0100
@@ -343,6 +343,7 @@
     ^ self
 ! !
 
+
 !Collection methodsFor:'Compatibility-ANSI'!
 
 identityIncludes:anObject
@@ -1650,6 +1651,12 @@
 
 !
 
+asCollectionDo:aBlock
+    "enumerate myself"
+
+    self do:aBlock
+!
+
 asDictionary
     "return a Dictionary with the receiver collection's elements,
      using the original keys of the receiver as dictionary key.