--- a/Tools_MethodList.st	Tue Oct 20 10:38:58 2009 +0200
+++ b/Tools_MethodList.st	Tue Oct 20 10:39:09 2009 +0200
@@ -1169,20 +1169,20 @@
     "/ if possible, make use of info prepared by listOfMethodNames
     classAndSelectorsRedefinedBySubclassesOfClass notNil
     ifTrue:[
-	setOfRedefinedSelectors := classAndSelectorsRedefinedBySubclassesOfClass at:mclass ifAbsent:nil.
-	setOfRedefinedSelectors notNil ifTrue:[
-	    ^ setOfRedefinedSelectors includes:aMethod selector
-	]
+        setOfRedefinedSelectors := classAndSelectorsRedefinedBySubclassesOfClass at:mclass ifAbsent:nil.
+        setOfRedefinedSelectors notNil ifTrue:[
+            ^ setOfRedefinedSelectors includes:aMethod selector
+        ]
     ].
 
     lastMethodClass == mclass ifTrue:[
-	subClasses := lastMethodClassesSubclasses
+        subClasses := lastMethodClassesSubclasses
     ] ifFalse:[
-	subClasses := aMethod mclass allSubclasses.
-	lastMethodClassesSubclasses := subClasses.
-	lastMethodClass := mclass.
+        subClasses := aMethod mclass allSubclasses.
+        lastMethodClassesSubclasses := subClasses.
+        lastMethodClass := mclass.
     ].
-    ^ subClasses contains:[:cls | cls implements:aMethod selector].
+    ^ subClasses contains:[:cls | cls includesSelector:aMethod selector].
 !
 
 redefinedOrInheritedIconFor:aMethod
@@ -1580,5 +1580,9 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.37 2009-06-07 10:17:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.38 2009-10-20 08:39:09 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.38 2009-10-20 08:39:09 cg Exp $'
 ! !