--- a/Explainer.st	Thu Aug 29 16:40:29 1996 +0200
+++ b/Explainer.st	Thu Sep 05 19:36:14 1996 +0200
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:2.10.9 on 18-jun-1996 at 15:30:47'                   !
-
 Parser subclass:#Explainer
 	instanceVariableNames:''
 	classVariableNames:''
@@ -19,7 +17,7 @@
 	category:'System-Compiler'
 !
 
-!Explainer class methodsFor:'documentation'!
+!Explainer  class methodsFor:'documentation'!
 
 copyright
 "
@@ -46,7 +44,7 @@
 "
 ! !
 
-!Explainer class methodsFor:'explaining'!
+!Explainer  class methodsFor:'explaining'!
 
 commonSuperClassOf:listOfClassNames
     |common found|
@@ -54,11 +52,7 @@
     listOfClassNames do:[:className |
         |class|
 
-        ((className endsWith:' class') and:[className ~= 'Metaclass']) ifTrue:[
-            class := (Smalltalk at:(className copyWithoutLast:6 "copyTo:(className size - 5)") asSymbol) class
-        ] ifFalse:[
-            class := Smalltalk at:(className asSymbol).
-        ].
+        class := Smalltalk classNamed:className.
         common isNil ifTrue:[
             common := class
         ] ifFalse:[
@@ -90,6 +84,7 @@
     ^ common
 
     "Modified: 17.6.1996 / 17:09:21 / stefan"
+    "Modified: 5.9.1996 / 19:34:41 / cg"
 !
 
 explain:someText in:source forClass:aClass
@@ -500,8 +495,8 @@
     ^ nil
 ! !
 
-!Explainer class methodsFor:'documentation'!
+!Explainer  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.18 1996-06-19 22:29:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.19 1996-09-05 17:36:14 cg Exp $'
 ! !