--- a/StatementNode.st	Tue Mar 03 00:42:37 2009 +0100
+++ b/StatementNode.st	Thu Mar 19 17:14:17 2009 +0100
@@ -236,7 +236,7 @@
 !
 
 printOn:aStream indent:i
-    expression printOn:aStream indent:i.
+    expression notNil ifTrue:[ expression printOn:aStream indent:i ].
 ! !
 
 !StatementNode methodsFor:'queries'!
@@ -289,5 +289,5 @@
 !StatementNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.35 2008-07-25 12:45:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.36 2009-03-19 16:14:17 cg Exp $'
 ! !