--- a/StatementNode.st	Mon Mar 24 22:57:37 2003 +0100
+++ b/StatementNode.st	Tue Mar 25 19:43:53 2003 +0100
@@ -102,6 +102,16 @@
 
 !StatementNode methodsFor:'code generation'!
 
+codeAllForSideEffectOn:aStream inBlock:b for:aCompiler
+    |thisStatement|
+
+    thisStatement := self.
+    [thisStatement notNil] whileTrue:[
+        thisStatement codeForSideEffectOn:aStream inBlock:b for:aCompiler.
+        thisStatement := thisStatement nextStatement
+    ].
+!
+
 codeForSideEffectOn:aStream inBlock:b for:aCompiler
     "generate code for this statement - value not needed"
 
@@ -185,13 +195,12 @@
 
     thisStatement := self.
     [thisStatement notNil] whileTrue:[
-	aStream spaces:i.
-	thisStatement printOn:aStream indent:i.
-	thisStatement nextStatement notNil ifTrue:[
-	    aStream nextPut:$..
-	    aStream cr.
-	].
-	thisStatement := thisStatement nextStatement
+        aStream spaces:i.
+        thisStatement printOn:aStream indent:i.
+        thisStatement nextStatement notNil ifTrue:[
+            aStream cr.
+        ].
+        thisStatement := thisStatement nextStatement
     ]
 !
 
@@ -239,5 +248,5 @@
 !StatementNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.26 2002-08-23 08:48:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.27 2003-03-25 18:43:53 cg Exp $'
 ! !