--- a/parsers/smalltalk/tests/PPSmalltalkParserTests.st	Wed Nov 19 10:52:37 2014 +0000
+++ b/parsers/smalltalk/tests/PPSmalltalkParserTests.st	Mon Nov 24 00:09:23 2014 +0000
@@ -390,6 +390,11 @@
 	self assert: result statements first value isInteger
 !
 
+testStatements9
+	super testStatements9.
+	self assert: result isEmpty.
+!
+
 testTemporaries1
 	super testTemporaries1.
 	self assert: result isSequence.
@@ -507,6 +512,14 @@
 	self assert: result body statements isEmpty
 !
 
+testBlock1
+	super testBlock1.
+	self assert: result isBlock.
+	self assert: result arguments size equals: 0.
+	self assert: result body temporaries isEmpty.
+	self assert: result body statements isEmpty
+!
+
 testComplexBlock1
 	super testComplexBlock1.
 	self assert: result isBlock.