--- a/Explainer.st	Mon Apr 14 20:48:16 1997 +0200
+++ b/Explainer.st	Wed Apr 16 13:47:24 1997 +0200
@@ -167,8 +167,14 @@
         ^ string , ' is a class variable in ' , c name
     ].
 
-    aClass privateClasses do:[:aClass |
-        aClass name = string ifTrue:[
+    aClass isMeta ifTrue:[
+        c := aClass soleInstance.
+    ] ifFalse:[
+        c := aClass.
+    ].
+    c privateClasses do:[:pClass |
+        (pClass name = string 
+         or:[pClass nameWithoutPrefix = string]) ifTrue:[
             ^ (string , ' is a private class in ''' , c name , '''.'
                      , '\\It is only visible locally.') withCRs
         ].
@@ -206,6 +212,7 @@
 
     "Created: 3.12.1995 / 12:47:37 / cg"
     "Modified: 22.3.1997 / 16:16:40 / cg"
+    "Modified: 16.4.1997 / 12:46:11 / stefan"
 !
 
 explainHereIn:aClass
@@ -520,5 +527,5 @@
 !Explainer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.25 1997-04-10 15:56:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.26 1997-04-16 11:47:24 stefan Exp $'
 ! !