diff --git a/src/Sindarin/InstructionStream.extension.st b/src/Sindarin/InstructionStream.extension.st
index cfa0ba2..b434729 100644
--- a/src/Sindarin/InstructionStream.extension.st
+++ b/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' }