--- a/StatementNode.st	Fri Aug 11 18:04:27 1995 +0200
+++ b/StatementNode.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/StatementNode.st,v 1.9 1995-08-11 16:04:07 claus Exp $
+$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.10 1995-08-11 20:28:31 claus Exp $
 '!
 
 !StatementNode class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.9 1995-08-11 16:04:07 claus Exp $
+$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.10 1995-08-11 20:28:31 claus Exp $
 "
 !
 
@@ -78,16 +78,16 @@
 
 !StatementNode methodsFor:'code generation'!
 
-codeOn:aStream inBlock:b
+codeOn:aStream inBlock:b for:aCompiler
     "generate code for this statement"
 
-    expression codeOn:aStream inBlock:b
+    expression codeOn:aStream inBlock:b for:aCompiler
 !
 
-codeForSideEffectOn:aStream inBlock:b
+codeForSideEffectOn:aStream inBlock:b for:aCompiler
     "generate code for this statement - value not needed"
 
-    expression codeForSideEffectOn:aStream inBlock:b
+    expression codeForSideEffectOn:aStream inBlock:b for:aCompiler
 ! !
 
 !StatementNode methodsFor:'accessing'!