--- a/VarNode.st	Sat May 16 18:05:07 1998 +0200
+++ b/VarNode.st	Sat May 16 18:35:18 1998 +0200
@@ -572,11 +572,18 @@
     (type == #PrivateClass) ifTrue:[
         ^ value privateClassesAt:name asSymbol
     ].
+
+    "/ synthetic; for evaluation only
+    (type == #EvaluationContextLocal) ifTrue:[
+        ^ token variableValue
+    ].
+
+
     "not reached"
-    self halt:'bad type'.
+    self halt:'internal error - bad variable type:' , type.
     ^ value
 
-    "Modified: / 17.1.1998 / 04:04:34 / cg"
+    "Modified: / 16.5.1998 / 18:35:00 / cg"
 !
 
 store:aValue
@@ -599,11 +606,17 @@
     (type == #ClassInstanceVariable) ifTrue:[
         ^ value instVarAt:index put:aValue
     ].
+
+    "/ synthetic; for evaluation only
+    (type == #EvaluationContextLocal) ifTrue:[
+        ^ token value:aValue. ^ aValue
+    ].
+
     "not reached"
-    self halt:'bad type'.
+    self halt:'internal error - bad variable type:' , type.
     ^ aValue
 
-    "Modified: / 17.1.1998 / 04:04:40 / cg"
+    "Modified: / 16.5.1998 / 18:35:03 / cg"
 ! !
 
 !VariableNode methodsFor:'printing'!
@@ -703,5 +716,5 @@
 !VariableNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.35 1998-01-17 15:01:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.36 1998-05-16 16:35:18 cg Exp $'
 ! !

--- a/VariableNode.st	Sat May 16 18:05:07 1998 +0200
+++ b/VariableNode.st	Sat May 16 18:35:18 1998 +0200
@@ -572,11 +572,18 @@
     (type == #PrivateClass) ifTrue:[
         ^ value privateClassesAt:name asSymbol
     ].
+
+    "/ synthetic; for evaluation only
+    (type == #EvaluationContextLocal) ifTrue:[
+        ^ token variableValue
+    ].
+
+
     "not reached"
-    self halt:'bad type'.
+    self halt:'internal error - bad variable type:' , type.
     ^ value
 
-    "Modified: / 17.1.1998 / 04:04:34 / cg"
+    "Modified: / 16.5.1998 / 18:35:00 / cg"
 !
 
 store:aValue
@@ -599,11 +606,17 @@
     (type == #ClassInstanceVariable) ifTrue:[
         ^ value instVarAt:index put:aValue
     ].
+
+    "/ synthetic; for evaluation only
+    (type == #EvaluationContextLocal) ifTrue:[
+        ^ token value:aValue. ^ aValue
+    ].
+
     "not reached"
-    self halt:'bad type'.
+    self halt:'internal error - bad variable type:' , type.
     ^ aValue
 
-    "Modified: / 17.1.1998 / 04:04:40 / cg"
+    "Modified: / 16.5.1998 / 18:35:03 / cg"
 ! !
 
 !VariableNode methodsFor:'printing'!
@@ -703,5 +716,5 @@
 !VariableNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.35 1998-01-17 15:01:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.36 1998-05-16 16:35:18 cg Exp $'
 ! !