--- a/Explainer.st	Fri Feb 14 18:38:44 1997 +0100
+++ b/Explainer.st	Sat Mar 22 16:20:58 1997 +0100
@@ -97,7 +97,7 @@
      Also, there could be much more detailed explanations."
 
     |parser variables v c string sym list count tmp
-     commonSuperClass classes spc|
+     commonSuperClass spc|
 
     string := someText withoutSeparators.
 
@@ -167,12 +167,10 @@
         ^ string , ' is a class variable in ' , c name
     ].
 
-    (classes := aClass privateClasses) notNil ifTrue:[
-        classes do:[:aClass |
-            aClass name = string ifTrue:[
+    aClass privateClasses do:[:aClass |
+        aClass name = string ifTrue:[
             ^ (string , ' is a private class in ''' , c name , '''.'
                      , '\\It is only visible locally.') withCRs
-            ]
         ].
     ].
 
@@ -207,7 +205,7 @@
     ^ 'cannot explain this - select individual tokens for an explanation.'
 
     "Created: 3.12.1995 / 12:47:37 / cg"
-    "Modified: 21.12.1996 / 20:52:54 / cg"
+    "Modified: 22.3.1997 / 16:16:40 / cg"
 !
 
 explainHereIn:aClass
@@ -520,5 +518,5 @@
 !Explainer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.23 1996-12-23 11:18:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.24 1997-03-22 15:20:58 cg Exp $'
 ! !