--- a/Explainer.st	Tue Nov 12 13:18:57 1996 +0100
+++ b/Explainer.st	Thu Nov 14 14:48:14 1996 +0100
@@ -146,20 +146,20 @@
 "/        self error:'oops'
 "/    ].
 
-    "class instvars"
-    variables := aClass class allInstVarNames.
-    (variables notNil and:[variables includes:string]) ifTrue:[
-        "where is it"
-        c := aClass.
-        [c notNil] whileTrue:[
-            v := c class instVarNames.
-            (v notNil and:[v includes:string]) ifTrue:[
-                ^ string , ' is a class instance variable in ' , c name
-            ].
-            c := c superclass
-        ].
-        self error:'oops'
-    ].
+"/    "class instvars"
+"/    variables := aClass class allInstVarNames.
+"/    (variables notNil and:[variables includes:string]) ifTrue:[
+"/        "where is it"
+"/        c := aClass.
+"/        [c notNil] whileTrue:[
+"/            v := c class instVarNames.
+"/            (v notNil and:[v includes:string]) ifTrue:[
+"/                ^ string , ' is a class instance variable in ' , c name
+"/            ].
+"/            c := c superclass
+"/        ].
+"/        self error:'oops'
+"/    ].
 
     "classvars"
     c := parser inWhichClassIsClassVar:string.
@@ -207,7 +207,7 @@
     ^ 'cannot explain this - select individual tokens for an explanation.'
 
     "Created: 3.12.1995 / 12:47:37 / cg"
-    "Modified: 7.11.1996 / 17:55:22 / cg"
+    "Modified: 14.11.1996 / 14:47:32 / cg"
 !
 
 explainHereIn:aClass
@@ -520,5 +520,5 @@
 !Explainer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.21 1996-11-07 16:58:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.22 1996-11-14 13:48:14 cg Exp $'
 ! !