Index: sys/boot/common/interp_forth.c
===================================================================
--- sys/boot/common/interp_forth.c
+++ sys/boot/common/interp_forth.c
@@ -63,6 +63,7 @@
 
 FICL_SYSTEM *bf_sys;
 FICL_VM        *bf_vm;
+FICL_WORD *pInterp;
 
 /*
  * Shim for taking commands from BF and passing them out to 'standard'
@@ -280,6 +281,8 @@
     ficlSetEnv(bf_sys, "loader_version", 
               (bootprog_rev[0] - '0') * 10 + (bootprog_rev[2] - '0'));
 
+    pInterp = ficlLookup(bf_sys, "interpret");
+
     /* try to load and run init file if present */
     if (rc == NULL)
        rc = "/boot/boot.4th";
@@ -290,6 +293,9 @@
            close(fd);
        }
     }
+
+    /* Do this again, so that interpret can be redefined. */
+    pInterp = ficlLookup(bf_sys, "interpret");
 }
 
 /*