--- a/StatementNode.st	Mon Sep 12 10:19:19 2011 +0200
+++ b/StatementNode.st	Mon Sep 12 10:19:41 2011 +0200
@@ -50,6 +50,7 @@
     ^ (self basicNew) expression:e
 ! !
 
+
 !StatementNode methodsFor:'accessing'!
 
 expression
@@ -178,10 +179,15 @@
     coll := OrderedCollection new.
     stat := self.
     [stat notNil] whileTrue:[
-        coll add:stat.
+        stat expression isNil ifTrue:[
+        ] ifFalse:[
+            coll add:stat.
+        ].
         stat := stat nextStatement.
     ].
     ^ coll
+
+    "Modified: / 12-09-2011 / 10:02:47 / cg"
 ! !
 
 !StatementNode methodsFor:'enumerating'!
@@ -355,7 +361,7 @@
 !StatementNode class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.42 2011-08-20 18:08:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.43 2011-09-12 08:19:41 cg Exp $'
 !
 
 version_SVN