--- a/ParseNode.st	Fri Aug 11 18:04:27 1995 +0200
+++ b/ParseNode.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/ParseNode.st,v 1.11 1995-08-11 16:03:30 claus Exp $
+$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.12 1995-08-11 20:28:09 claus Exp $
 '!
 
 !ParseNode class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.11 1995-08-11 16:03:30 claus Exp $
+$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.12 1995-08-11 20:28:09 claus Exp $
 "
 !
 
@@ -178,9 +178,9 @@
 
 !ParseNode methodsFor:'code generation'!
 
-codeForSideEffectOn:aStream inBlock:b
+codeForSideEffectOn:aStream inBlock:b for:aCompiler
     "generate code for this statement - value not needed"
 
-    self codeOn:aStream inBlock:b.
+    self codeOn:aStream inBlock:b for:aCompiler.
     aStream nextPut:#drop
 ! !