diff --git a/blk/393 b/blk/393
index cacd355..e602432 100644
--- a/blk/393
+++ b/blk/393
@@ -10,6 +10,6 @@
 : QUIT
     (resRS)
     0 0x08 RAM+ !  ( 08 == C<* override )
-    LIT< INTERPRET (find) DROP EXECUTE
+    LIT< (main) (find) DROP EXECUTE
 ;
 1 25 LOADR+ ( xcomp core low )
diff --git a/blk/436 b/blk/436
index ecb6607..04580fb 100644
--- a/blk/436
+++ b/blk/436
@@ -1,3 +1,4 @@
+: (main) INTERPRET BYE ;
 : BOOT
     0x02 RAM+ CURRENT* !
     CURRENT @ 0x2e RAM+ ! ( 2e == BOOT C< PTR )
@@ -8,6 +9,4 @@
     ( 0c == C<* )
     ['] (boot<) 0x0c RAM+ !
     ( boot< always has a char waiting. 06 == C<?* )
-    1 0x06 RAM+ !
-    INTERPRET BYE ;
-
+    1 0x06 RAM+ ! (main) ;
diff --git a/emul/forth.bin b/emul/forth.bin
index 666ef8e..2ea7d55 100644
Binary files a/emul/forth.bin and b/emul/forth.bin differ