--- a/Smalltalk.st	Tue Oct 20 10:26:30 2009 +0200
+++ b/Smalltalk.st	Tue Oct 20 10:29:21 2009 +0200
@@ -1885,39 +1885,17 @@
     ].
 !
 
-allMethodsForWhich:checkBlock do:aBlock
-    "enumerate all methods in all classes and evaluate aBlock for those for which
-     checkBlock returns true. Both aBlock and checkBlock are called with the method as argument."
+allMethodsWithSelectorDo:aTwoArgBlock
+    "enumerate all methods in all classes and evaluate aBlock 
+     with method and selector as arguments."
 
     Smalltalk allClassesDo:[:eachClass |
         eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
-            (checkBlock value:mthd) ifTrue:[
-                aBlock value:mthd
-            ].
+            aTwoArgBlock value:mthd value:sel
         ]
     ].
 !
 
-allMethodsForWhich:checkBlock withSelectorDo:aBlock
-    "enumerate all methods in all classes and evaluate aBlock for those for which
-     checkBlock returns true. Both aBlock and checkBlock are called with method and selector
-     as arguments."
-
-    Smalltalk allClassesDo:[:eachClass |
-        eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
-            (checkBlock value:mthd value:sel) ifTrue:[
-                aBlock value:mthd value:sel
-            ].
-        ]
-    ].
-!
-
-allMethodsWithSelectorDo:aTwoArgBlock
-    "enumerate all methods in all classes"
-
-    self allMethodsForWhich:[:m :sel | true] withSelectorDo:aTwoArgBlock
-!
-
 associationsDo:aBlock
     "evaluate the argument, aBlock for all key/value pairs
      in the Smalltalk dictionary"
@@ -7305,9 +7283,9 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.895 2009-10-20 08:26:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.896 2009-10-20 08:29:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.895 2009-10-20 08:26:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.896 2009-10-20 08:29:21 cg Exp $'
 ! !