diff --git a/blk/301 b/blk/301
index 65c92b9..e307504 100644
--- a/blk/301
+++ b/blk/301
@@ -1,7 +1,10 @@
-L3 BSET
-PC ORG @ 0x34 + ! ( execute )
-    ( DE points to wordref )
-    EXDEHL,
+L3 BSET PC ORG @ 0x34 + ! ( execute )
+    EXDEHL, ( HL now points to wordref )
+    ( We don't apply BIN( reliably on stable ABI stuff, we
+      might need to adjust addr. Ugly, but well... )
+    BIN( @ [IF]
+        A XORr, H ORr, IFZ, H BIN( @ 256 / LDrn,
+    [THEN]
     E (HL) LDrr,
     D BIN( @ 256 / LDrn,
     EXDEHL,