--- a/Tools_ClassChecker.st	Fri Mar 10 10:54:18 2006 +0100
+++ b/Tools_ClassChecker.st	Fri Mar 10 10:54:47 2006 +0100
@@ -486,10 +486,8 @@
 !
 
 anySendsOf:aSelector
-    Smalltalk allClassesDo:[:eachClass |
-	eachClass instAndClassSelectorsAndMethodsDo:[:mSelector :mthd |
-	    (mthd sends:aSelector) ifTrue:[^ true].
-	].
+    Smalltalk allMethodsDo:[:mthd |
+        (mthd sends:aSelector) ifTrue:[^ true].
     ].
     ^ false
 !
@@ -645,16 +643,16 @@
     |remaining|
 
     remaining := selectorsOfInterest copy.
-    Smalltalk allClassesDo:[:eachClass |
-	eachClass instAndClassSelectorsAndMethodsDo:[:mSelector :mthd | |lits|
-	    lits := mthd literals.
-	    lits notNil ifTrue:[
-		(lits includesAny:remaining) ifTrue:[
-		    remaining removeAllFoundIn:(mthd messagesSent).
-		    remaining isEmpty ifTrue:[^ remaining].
-		]
-	    ]
-	].
+    Smalltalk allMethodsDo:[:mthd |
+        |lits|
+
+        lits := mthd literals.
+        lits notNil ifTrue:[
+            (lits includesAny:remaining) ifTrue:[
+                remaining removeAllFoundIn:(mthd messagesSent).
+                remaining isEmpty ifTrue:[^ remaining].
+            ]
+        ]
     ].
     ^ remaining
 
@@ -793,5 +791,5 @@
 !ClassChecker class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassChecker.st,v 1.7 2006-03-06 08:53:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassChecker.st,v 1.8 2006-03-10 09:54:47 cg Exp $'
 ! !