--- a/AssignNd.st	Fri Aug 11 18:04:27 1995 +0200
+++ b/AssignNd.st	Fri Aug 11 22:28:40 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Attic/AssignNd.st,v 1.10 1995-08-11 16:02:33 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/AssignNd.st,v 1.11 1995-08-11 20:27:30 claus Exp $
 '!
 
 !AssignmentNode class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Attic/AssignNd.st,v 1.10 1995-08-11 16:02:33 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/AssignNd.st,v 1.11 1995-08-11 20:27:30 claus Exp $
 "
 !
 
@@ -88,7 +88,7 @@
 
 !AssignmentNode methodsFor:'code generation'!
 
-codeForSideEffectOn:aStream inBlock:b
+codeForSideEffectOn:aStream inBlock:b for:aCompiler
     |sel arg|
 
     (variable type == #MethodVariable) ifTrue:[
@@ -115,13 +115,13 @@
 	    ]
 	]
     ].
-    expression codeOn:aStream inBlock:b.
-    variable codeStoreOn:aStream inBlock:b valueNeeded:false
+    expression codeOn:aStream inBlock:b for:aCompiler.
+    variable codeStoreOn:aStream inBlock:b valueNeeded:false for:aCompiler
 !
 
-codeOn:aStream inBlock:b
-    expression codeOn:aStream inBlock:b.
-    variable codeStoreOn:aStream inBlock:b valueNeeded:true
+codeOn:aStream inBlock:b for:aCompiler
+    expression codeOn:aStream inBlock:b for:aCompiler.
+    variable codeStoreOn:aStream inBlock:b valueNeeded:true for:aCompiler
 ! !
 
 !AssignmentNode methodsFor:'printing'!