--- a/Explainer.st	Mon Nov 05 17:35:09 2001 +0100
+++ b/Explainer.st	Mon Nov 05 17:47:11 2001 +0100
@@ -117,7 +117,7 @@
      Also, there could be much more detailed explanations."
 
     |parser variables c string tmp
-     spc sym sel stringText|
+     spc sym sel stringText clsName|
 
     string := someText string withoutSeparators.
     stringText := string allBold.
@@ -147,10 +147,11 @@
     c := aClass whichClassDefinesInstVar:string.
     c notNil ifTrue:[
         c isMeta ifTrue:[
+            clsName := c theNonMetaclass name.
             shortText ifTrue:[
-                ^ '''' , stringText , ''': class instVar in ' , c soleInstance name , '.'
+                ^ '''' , stringText , ''': class instVar in ' , clsName , '.'
             ].
-            ^ '''' , stringText, ''' is a class instance variable in ' , c soleInstance name , '.'
+            ^ '''' , stringText, ''' is a class instance variable in ' , clsName , '.'
         ].
 
         shortText ifTrue:[
@@ -263,7 +264,7 @@
 
     "Created: / 3.12.1995 / 12:47:37 / cg"
     "Modified: / 16.4.1997 / 12:46:11 / stefan"
-    "Modified: / 5.11.2001 / 16:42:32 / cg"
+    "Modified: / 5.11.2001 / 16:54:23 / cg"
 !
 
 explainGlobal:string inClass:aClass short:shortText
@@ -803,5 +804,5 @@
 !Explainer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.45 2001-11-05 16:35:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.46 2001-11-05 16:47:11 cg Exp $'
 ! !