--- a/KeyedCollection.st	Tue Aug 24 10:28:27 2010 +0200
+++ b/KeyedCollection.st	Tue Aug 24 10:29:08 2010 +0200
@@ -153,14 +153,6 @@
     ^ self subclassResponsibility
 
     "Created: / 19.6.1998 / 00:56:52 / cg"
-!
-
-keysDo:aBlock
-    "evaluate aBlock for each key"
-
-    self keysAndValuesDo:[:elKey :elValue | aBlock value:elKey]
-
-    "Created: / 19.6.1998 / 00:56:34 / cg"
 ! !
 
 !KeyedCollection methodsFor:'removing'!
@@ -208,9 +200,9 @@
 !KeyedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/KeyedCollection.st,v 1.7 2010-01-29 16:42:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/KeyedCollection.st,v 1.8 2010-08-24 08:29:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/KeyedCollection.st,v 1.7 2010-01-29 16:42:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/KeyedCollection.st,v 1.8 2010-08-24 08:29:08 cg Exp $'
 ! !