--- a/VarNode.st	Fri Aug 11 18:04:27 1995 +0200
+++ b/VarNode.st	Fri Aug 11 22:28:40 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.8 1995-08-11 16:04:24 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.9 1995-08-11 20:28:40 claus Exp $
 '!
 
 !VariableNode class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.8 1995-08-11 16:04:24 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.9 1995-08-11 20:28:40 claus Exp $
 "
 !
 
@@ -251,12 +251,12 @@
 
 !VariableNode methodsFor:'code generation'!
 
-codeForSideEffectOn:aStream inBlock:b
+codeForSideEffectOn:aStream inBlock:b for:aCompiler
     "no code at all"
     ^ self
 !
 
-codeOn:aStream inBlock:codeBlock
+codeOn:aStream inBlock:codeBlock for:aCompiler
     |theCode b deltaLevel|
 
     (type == #MethodArg) ifTrue:[
@@ -374,7 +374,7 @@
     aStream nextPut:#pushLit; nextPut:value
 !
 
-codeStoreOn:aStream inBlock:codeBlock valueNeeded:valueNeeded
+codeStoreOn:aStream inBlock:codeBlock valueNeeded:valueNeeded for:aCompiler
     |theCode b deltaLevel|
 
     valueNeeded ifTrue:[