--- a/MethodNode.st	Sun Aug 13 00:59:41 1995 +0200
+++ b/MethodNode.st	Sun Aug 13 22:52:47 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/MethodNode.st,v 1.4 1995-08-12 22:59:41 claus Exp $
+$Header: /cvs/stx/stx/libcomp/MethodNode.st,v 1.5 1995-08-13 20:52:22 claus Exp $
 '!
 
 !MethodNode class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/MethodNode.st,v 1.4 1995-08-12 22:59:41 claus Exp $
+$Header: /cvs/stx/stx/libcomp/MethodNode.st,v 1.5 1995-08-13 20:52:22 claus Exp $
 "
 !
 
@@ -75,9 +75,9 @@
 
 !MethodNode methodsFor:'code generation'!
 
-emitEffect:aStream for:aCompiler
+emitEffect:aStream
     statements do:[:stat |
-	stat codeForSideEffectOn:aStream inBlock:nil for:aCompiler
+	stat codeForSideEffectOn:aStream inBlock:nil for:nil 
     ].
 ! !