--- a/Explainer.st	Wed Feb 20 11:32:42 2002 +0100
+++ b/Explainer.st	Mon Feb 25 20:57:27 2002 +0100
@@ -433,13 +433,13 @@
     "
     list := Set new.
     Smalltalk allClassesDo:[:c|
-        (c implements:sym) ifTrue:[
+        (c includesSelector:sym) ifTrue:[
             list add:(c name).
             firstImplementingClass isNil ifTrue:[
                 firstImplementingClass := c
             ]
         ].
-        (c class implements:sym) ifTrue:[
+        (c class includesSelector:sym) ifTrue:[
             list add:(c name , ' class').
             firstImplementingClass isNil ifTrue:[
                 firstImplementingClass := c class
@@ -521,7 +521,7 @@
                             ]
                         ] ifFalse:[
                             (commonSuperClass == Object
-                            and:[commonSuperClass implements:sym]) ifTrue:[
+                            and:[commonSuperClass includesSelector:sym]) ifTrue:[
                                 msg := s , tmp , count printString , ' classes.
 
 All objects seem to respond to that message, 
@@ -532,7 +532,7 @@
                                 ((commonSuperClass == Behavior
                                  or:[commonSuperClass == Class
                                  or:[commonSuperClass == ClassDescription]])
-                                and:[commonSuperClass implements:sym]) ifTrue:[
+                                and:[commonSuperClass includesSelector:sym]) ifTrue:[
                                     msg := s , tmp , count printString , ' classes.
 
 All classes seem to respond to that message, 
@@ -848,5 +848,5 @@
 !Explainer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.50 2002-02-06 10:46:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.51 2002-02-25 19:57:27 cg Exp $'
 ! !