--- a/Collection.st	Mon Aug 23 19:33:19 2010 +0200
+++ b/Collection.st	Tue Aug 24 10:14:38 2010 +0200
@@ -2269,6 +2269,14 @@
     "
 !
 
+keysDo:aBlock
+    "evaluate the argument, aBlock for every key in the collection."
+
+    self keysAndValuesDo:[:k :v | aBlock value:k]
+
+    "Created: / 24-08-2010 / 10:12:14 / cg"
+!
+
 map:selector
     "for lisp fans - similar to collect"
 
@@ -3790,11 +3798,11 @@
 !Collection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.248 2010-08-23 17:33:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.249 2010-08-24 08:14:38 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.248 2010-08-23 17:33:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.249 2010-08-24 08:14:38 cg Exp $'
 ! !
 
 Collection initialize!