diff --git a/blk/301 b/blk/301
index f942557..caafdb7 100644
--- a/blk/301
+++ b/blk/301
@@ -9,5 +9,5 @@ lblexec BSET L1 FSET ( B299 ) L2 FSET ( B298 )
     A ORr, IFZ, EXDEHL, JP(HL), THEN,
     A DECr, JRZ, L1 FWR ( compiled B303 )
     ( cell or does. push PFA ) DE PUSHqq,
-    A DECr, IFZ, JPNEXT, THEN, ( cell )
+    A DECr, JRZ, lblnext BWR ( cell )
     ( continue to does, B302 )
diff --git a/emul/forth.bin b/emul/forth.bin
index 5d9e5e4..0caba09 100644
Binary files a/emul/forth.bin and b/emul/forth.bin differ