--- a/Explainer.st	Mon Nov 05 16:38:10 2001 +0100
+++ b/Explainer.st	Mon Nov 05 17:35:09 2001 +0100
@@ -197,11 +197,7 @@
         ^ '''' , stringText , ''' is a class variable in ' , c name , '.'
     ].
 
-    aClass isMeta ifTrue:[
-        c := aClass soleInstance.
-    ] ifFalse:[
-        c := aClass.
-    ].
+    c := aClass theNonMetaclass.
     c privateClasses do:[:pClass |
         (pClass name = string 
          or:[pClass nameWithoutPrefix = string]) ifTrue:[
@@ -267,7 +263,7 @@
 
     "Created: / 3.12.1995 / 12:47:37 / cg"
     "Modified: / 16.4.1997 / 12:46:11 / stefan"
-    "Modified: / 23.3.1999 / 13:29:56 / cg"
+    "Modified: / 5.11.2001 / 16:42:32 / cg"
 !
 
 explainGlobal:string inClass:aClass short:shortText
@@ -807,5 +803,5 @@
 !Explainer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.44 2001-10-04 12:53:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.45 2001-11-05 16:35:09 cg Exp $'
 ! !