--- a/SmallSense__SmalltalkParseNodeVisitor.st	Tue Sep 24 23:01:37 2013 +0100
+++ b/SmallSense__SmalltalkParseNodeVisitor.st	Tue Sep 24 23:02:47 2013 +0100
@@ -74,15 +74,18 @@
 
     ^anObject isStatementNode ifTrue:[
         stmt := anObject.
-        [ stmt isNil ] whileFalse:[
+        [ stmt notNil and:[stmt isStatementNode ] ] whileTrue:[
             stmt acceptVisitor:self.
             stmt := stmt nextStatement.
-        ]
+        ].
+        stmt notNil ifTrue:[
+            stmt acceptVisitor: self.
+        ].
     ] ifFalse:[
         anObject acceptVisitor: self.
     ]
 
-    "Modified: / 25-07-2011 / 22:33:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-09-2013 / 13:21:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 visitAssignmentNode:anObject