--- a/Explainer.st	Wed Sep 04 12:37:53 2002 +0200
+++ b/Explainer.st	Thu Sep 12 11:03:57 2002 +0200
@@ -48,13 +48,15 @@
 
 !Explainer class methodsFor:'explaining'!
 
-commonSuperClassOf:listOfClassNames
+commonSuperClassOf:listOfClassesOrClassNames
     |common found|
 
-    listOfClassNames do:[:className |
+    listOfClassesOrClassNames do:[:classOrClassName |
         |class|
 
-        class := Smalltalk classNamed:className.
+        class := classOrClassName isBehavior 
+                        ifTrue:[classOrClassName]
+                        ifFalse:[Smalltalk classNamed:classOrClassName]..
         common isNil ifTrue:[
             common := class
         ] ifFalse:[
@@ -855,5 +857,5 @@
 !Explainer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.53 2002-07-24 10:17:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.54 2002-09-12 09:03:57 cg Exp $'
 ! !