--- a/VariableNode.st	Mon Sep 03 14:59:25 2001 +0200
+++ b/VariableNode.st	Mon Sep 03 15:00:56 2001 +0200
@@ -685,9 +685,12 @@
     ].
 
     "/ synthetic; for evaluation only
-    (type == #EvaluationContextLocal) ifTrue:[
+    (type == #EvaluationContextLocal
+    or:[type == #EvaluationContextVar
+    or:[type == #EvaluationContextArg]]) ifTrue:[
         ^ token variableValue
     ].
+
     "/ synthetic; for evaluation only
     (type == #WorkspaceVariable) ifTrue:[
         ^ token value
@@ -864,5 +867,5 @@
 !VariableNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.54 2001-09-03 12:59:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.55 2001-09-03 13:00:56 cg Exp $'
 ! !