--- a/StatementNode.st	Wed Oct 06 22:38:29 1999 +0200
+++ b/StatementNode.st	Wed Oct 06 22:44:39 1999 +0200
@@ -103,7 +103,9 @@
 codeForSideEffectOn:aStream inBlock:b for:aCompiler
     "generate code for this statement - value not needed"
 
-    expression codeForSideEffectOn:aStream inBlock:b for:aCompiler
+    expression notNil ifTrue:[
+        expression codeForSideEffectOn:aStream inBlock:b for:aCompiler
+    ]
 !
 
 codeOn:aStream inBlock:b for:aCompiler
@@ -216,5 +218,5 @@
 !StatementNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.21 1998-05-14 17:33:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.22 1999-10-06 20:44:39 cg Exp $'
 ! !