--- a/KeyedCollection.st	Thu Aug 19 21:39:34 2010 +0100
+++ b/KeyedCollection.st	Thu Aug 26 11:12:57 2010 +0100
@@ -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,16 +200,17 @@
 !KeyedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Id: KeyedCollection.st 10544 2010-07-12 16:20:36Z vranyj1 $'
+    ^ '$Id: KeyedCollection.st 10570 2010-08-26 10:12:57Z vranyj1 $'
 !
 
 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 '
 !
 
 version_SVN
-    ^ '$Id: KeyedCollection.st 10544 2010-07-12 16:20:36Z vranyj1 $'
+    ^ '$Id: KeyedCollection.st 10570 2010-08-26 10:12:57Z vranyj1 $'
 ! !
 
 
 
+