diff --git a/blk/044 b/blk/044
index 1ff3ef1..f15cb2f 100644
--- a/blk/044
+++ b/blk/044
@@ -2,4 +2,3 @@ INTERPRET --   Get a line from stdin, compile it in tmp memory,
                then execute the compiled contents.
 LEAVE     --   In a DO..LOOP, exit at the next LOOP call.
 QUIT      --   Return to interpreter prompt immediately
-EXIT!     --   Exit current INTERPRET loop.
diff --git a/blk/409 b/blk/409
index d2e3917..09b0807 100644
--- a/blk/409
+++ b/blk/409
@@ -5,12 +5,3 @@
     NOT IF (parse) ELSE EXECUTE THEN
     C<? NOT IF LIT< (ok) (find) IF EXECUTE THEN THEN
     AGAIN ;
-
-( Drop RSP until I-2 == INTERPRET. )
-: EXIT!
-    ['] INTERPRET       ( I )
-    BEGIN               ( I )
-    DUP                 ( I I )
-    R> DROP I 2- @      ( I I a )
-    = UNTIL
-    DROP ;
diff --git a/blk/432 b/blk/432
index da09ad2..442403f 100644
--- a/blk/432
+++ b/blk/432
@@ -1,14 +1,3 @@
-: _
-    (boot<)
-    DUP 4 = IF
-        ( We drop our char, but also "a" from WORD: it won't
-          have the opportunity to balance PSP because we're
-          EXIT!ing. )
-        2DROP
-        ( We're finished interpreting )
-        EXIT!
-    THEN
-;
 ( pre-comment for tight LOAD: The 0x08==I check after INTERPRET
   is to check whether we're restoring to "_", the word above.
   if yes, then we're in a nested load. Also, the 1 in 0x06 is
diff --git a/blk/433 b/blk/433
index 13fec92..d8f8447 100644
--- a/blk/433
+++ b/blk/433
@@ -5,7 +5,7 @@
     0x2e RAM+ @ >R  ( boot ptr )
     BLK@
     BLK( 0x2e RAM+ ! ( Point to beginning of BLK )
-    ['] _ 0x08 RAM+ ! 
+    ['] (boot<) 0x08 RAM+ !
     1 0x06 RAM+ !  ( 06 == C<? )
     INTERPRET
     R> 0x2e RAM+ ! R> 0x06 RAM+ !
diff --git a/emul/forth.bin b/emul/forth.bin
index 86dfe1e..f36dd20 100644
Binary files a/emul/forth.bin and b/emul/forth.bin differ