diff --git a/blk/409 b/blk/409
deleted file mode 100644
index 09b0807..0000000
--- a/blk/409
+++ /dev/null
@@ -1,7 +0,0 @@
-: INTERPRET
-    BEGIN
-    WORD DUP C@ EOT? IF DROP EXIT THEN
-    (find)
-    NOT IF (parse) ELSE EXECUTE THEN
-    C<? NOT IF LIT< (ok) (find) IF EXECUTE THEN THEN
-    AGAIN ;
diff --git a/blk/410 b/blk/410
deleted file mode 100644
index 865f627..0000000
--- a/blk/410
+++ /dev/null
@@ -1,11 +0,0 @@
-( system c< simply reads source from binary, starting at
-  LATEST. Convenient way to bootstrap a new system. )
-: (boot<)
-    ( 2e == BOOT C< PTR )
-    0x2e RAM+ @   ( a )
-    DUP C@        ( a c )
-    SWAP 1 +      ( c a+1 )
-    0x2e RAM+ !   ( c )
-;
-
-
diff --git a/blk/432 b/blk/432
index 442403f..079e6de 100644
--- a/blk/432
+++ b/blk/432
@@ -1,3 +1,14 @@
+: INTERPRET
+    BEGIN
+    WORD DUP C@ EOT? IF DROP EXIT THEN
+    (find) NOT IF (parse) ELSE EXECUTE THEN
+    C<? NOT IF (ok) THEN
+    AGAIN ;
+( Read from BOOT C< PTR and inc it. )
+: (boot<)
+    ( 2e == BOOT C< PTR )
+    0x2e ( BOOT C< PTR ) RAM+ @ DUP C@ ( a c )
+    SWAP 1 + 0x2e RAM+ ! ( c ) ;
 ( 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/411 b/blk/436
similarity index 100%
rename from blk/411
rename to blk/436
diff --git a/emul/forth.bin b/emul/forth.bin
index e71fa19..15ab266 100644
Binary files a/emul/forth.bin and b/emul/forth.bin differ