--- a/VariableNode.st	Fri Aug 12 01:27:27 1994 +0200
+++ b/VariableNode.st	Fri Aug 12 01:28:35 1994 +0200
@@ -20,6 +20,8 @@
 VariableNode comment:'
 COPYRIGHT (c) 1994 by Claus Gittinger
              All Rights Reserved
+
+$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.3 1994-08-11 23:28:32 claus Exp $
 '!
 
 !VariableNode class methodsFor:'documentation'!
@@ -40,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.2 1994-06-02 20:26:27 claus Exp $
+$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.3 1994-08-11 23:28:32 claus Exp $
 "
 !
 
@@ -174,13 +176,13 @@
 
 evaluate
     (type == #MethodVariable) ifTrue:[
-        ^ token value
+        ^ token variableValue
     ].
     (type == #InstanceVariable) ifTrue:[
         ^ selfValue instVarAt:index
     ].
     (type == #BlockArg) ifTrue:[
-        ^ token value
+        ^ token variableValue
     ].
     (type == #GlobalVariable) ifTrue:[
         (Smalltalk includesKey:name) ifTrue:[
@@ -194,7 +196,7 @@
         ^ nil
     ].
     (type == #BlockVariable) ifTrue:[
-        ^ token value
+        ^ token variableValue
     ].
     (type == #ClassVariable) ifTrue:[
         ^ Smalltalk at:name