Merge pull request #109 from Ducasse/FixStepWillCreateBlock

Fix all the tests.

Author: Ducasse

src/Sindarin/InstructionStream.extension.st

@@ -4,7 +4,8 @@ Extension { #name : 'InstructionStream' }
 InstructionStream >> willCreateBlock [
 	"next bytecode is a block creation"
 
-	^ self method encoderClass isCreateFullBlockAt: pc in: self method
+	^ (self method encoderClass isCreateBlockAt: pc in: self method) or: 
+		[ self method encoderClass isCreateFullBlockAt: pc in: self method]
 ]
 
 { #category : '*Sindarin' }