diff --git a/blk/301 b/blk/301
index f2e1935..65f6bf2 100644
--- a/blk/301
+++ b/blk/301
@@ -1,14 +1,12 @@
-L3 BSET PC ORG @ 0x34 + ! ( execute )
-    EXDEHL, ( HL now points to wordref )
+L3 BSET PC ORG @ 0x34 + ! ( execute. DE -> 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,
+        A XORr, D ORr, IFZ, D BIN( @ 256 / LDrn, THEN,
     [THEN]
-    E (HL) LDrr,
-    D BIN( @ 256 / LDrn,
-    EXDEHL,
-    ( HL points to code pointer )
+    LDA(DE),
+    L A LDrr,
+    H BIN( @ 256 / LDrn,
     DE INCss,
     ( DE points to PFA )
     JP(HL),
diff --git a/emul/forth.bin b/emul/forth.bin
index 39751d9..cc07a64 100644
Binary files a/emul/forth.bin and b/emul/forth.bin differ