From 3b885ac999f1af15e44f9b76c8b7bdb130b47a41 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?St=C3=A9phaneDucasse?= <stephane.ducasse@inria.fr>
Date: Thu, 30 Apr 2026 16:11:21 +0200
Subject: [PATCH] Fix all the tests.

---
 src/Sindarin/InstructionStream.extension.st | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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' }