Index: head/sys/boot/common/interp_forth.c
===================================================================
--- head/sys/boot/common/interp_forth.c
+++ head/sys/boot/common/interp_forth.c
@@ -63,7 +63,6 @@
 
 FICL_SYSTEM *bf_sys;
 FICL_VM	*bf_vm;
-FICL_WORD *pInterp;
 
 /*
  * Shim for taking commands from BF and passing them out to 'standard'
@@ -281,8 +280,6 @@
     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";
@@ -293,9 +290,6 @@
 	    close(fd);
 	}
     }
-
-    /* Do this again, so that interpret can be redefined. */
-    pInterp = ficlLookup(bf_sys, "interpret");
 }
 
 /*