--- a/Explainer.st	Thu Jun 12 13:06:41 2003 +0200
+++ b/Explainer.st	Thu Jun 12 13:08:56 2003 +0200
@@ -467,11 +467,11 @@
     ].
 
     (aClass canUnderstand:sym) ifTrue:[
-        s2 := ('Instances of ''' , aClass name , ''' respond to #') , sym asText allBold , '.'.
+        s2 := ('Instances of ''' , aClass name , ''' respond to #') , sym allBold , '.'.
         shortText ifFalse:[
             s2 := '\\' , s2 
                   , '\- inherited from ' withCRs
-                  , (aClass whichClassImplements:sym) name asText allBold.
+                  , (aClass whichClassImplements:sym) name allBold.
         ].
         firstImplementingClass := (aClass whichClassImplements:sym)
     ] ifFalse:[
@@ -490,7 +490,7 @@
         ] ifFalse:[
             tmp := ' is a selector implemented in '.
         ].
-        s := '#' , string asText allBold.
+        s := '#' , string allBold.
 
         (count == 1) ifTrue:[
             (t := list first) isMeta ifTrue:[
@@ -508,7 +508,13 @@
                 ].
             ] ifFalse:[
                 shortText ifTrue:[
-                    msg := s , tmp , count printString , ' classes.'.
+                    msg := s , tmp , count printString , ' classes'.
+                    commonSuperClass := self commonSuperClassOf:list.
+                    (commonSuperClass == Object
+                    and:[commonSuperClass includesSelector:sym]) ifTrue:[
+                        msg := msg , ' (including ' , 'Object' allBold, ')'
+                    ].
+                    msg := msg , '.'.
                     ^ msg
                 ].
 
@@ -859,5 +865,5 @@
 !Explainer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.59 2002-12-28 14:54:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.60 2003-06-12 11:08:56 cg Exp $'
 ! !