--- a/Explainer.st	Mon Jul 23 18:36:15 2001 +0200
+++ b/Explainer.st	Tue Jul 24 09:57:29 2001 +0200
@@ -102,7 +102,7 @@
      message selector. I.e. the explanation should be context sensitive.
      Also, there could be much more detailed explanations."
 
-    |parser variables v c string tmp
+    |parser variables c string tmp
      spc sym sel stringText|
 
     string := someText string withoutSeparators.
@@ -143,7 +143,7 @@
 "/    (variables notNil and:[variables includes:string]) ifTrue:[
 "/        "where is it"
 "/        c := aClass.
-"/        [c notNil] whileTrue:[
+"/        [c notNil] whileTrue:[ |v|
 "/            v := c instVarNames.
 "/            (v notNil and:[v includes:string]) ifTrue:[
 "/                ^ string , ' is an instance variable in ' , c name
@@ -158,7 +158,7 @@
 "/    (variables notNil and:[variables includes:string]) ifTrue:[
 "/        "where is it"
 "/        c := aClass.
-"/        [c notNil] whileTrue:[
+"/        [c notNil] whileTrue:[ |v|
 "/            v := c class instVarNames.
 "/            (v notNil and:[v includes:string]) ifTrue:[
 "/                ^ string , ' is a class instance variable in ' , c name
@@ -616,5 +616,5 @@
 !Explainer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.37 2001-02-20 17:06:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.38 2001-07-24 07:57:23 stefan Exp $'
 ! !