--- a/Collection.st	Wed Dec 28 22:58:47 2016 +0000
+++ b/Collection.st	Thu Jan 05 21:02:10 2017 +0000
@@ -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.