diff --git a/blk/037 b/blk/037
index ea01792..0e74fab 100644
--- a/blk/037
+++ b/blk/037
@@ -10,7 +10,7 @@ Entry management
 ,        n --     Write n in HERE and advance it.
 ALLOT    n --     Move HERE by n bytes
 C,       b --     Write byte b in HERE and advance it.
+FIND     w -- a f Like '?, but for w.
 EMPTY  --         Rewind HERE and CURRENT where they were at
                   system initialization.            
-
                                                         (cont.)
diff --git a/blk/131 b/blk/131
deleted file mode 100644
index f2a63aa..0000000
--- a/blk/131
+++ /dev/null
@@ -1,9 +0,0 @@
-( Relink a regular Forth full interpreter. )
-: RLCORE
-    LIT< [ (find) DROP          ( target )
-    DUP 3 - @                   ( t prevoff )
-    ( subtract [ name length )
-    1-                          ( t o )
-    RLDICT
-;
-
diff --git a/blk/156 b/blk/156
index fa80f05..da74eab 100644
--- a/blk/156
+++ b/blk/156
@@ -1,4 +1,4 @@
 : EMPTY
-    LIT< _sys (find) NOT IF ABORT THEN
+    LIT< _sys FIND NOT IF ABORT THEN
     DUP HERE ! CURRENT ! ;
 
diff --git a/blk/263 b/blk/263
index b48b461..e7ed5c9 100644
--- a/blk/263
+++ b/blk/263
@@ -11,5 +11,5 @@ VARIABLE XCURRENT
 : X['] XCON ' _xapply LITA XCOFF ;
 : XCOMPILE
     XCON ' _xapply LITA
-    LIT< , (find) DROP _xapply , XCOFF ;
+    LIT< , FIND DROP _xapply , XCOFF ;
 : X[COMPILE] XCON ' _xapply , XCOFF ;
diff --git a/blk/393 b/blk/393
index d4092d0..10a69c9 100644
--- a/blk/393
+++ b/blk/393
@@ -6,11 +6,11 @@
 : XYPOS 0x40 RAM+ ;
 
 ( w -- a f )
-: (find) CURRENT @ SWAP _find ;
+: FIND CURRENT @ SWAP _find ;
 
 : QUIT
     (resRS)
     0 0x08 RAM+ !  ( 08 == C<* override )
-    LIT< (main) (find) DROP EXECUTE
+    LIT< (main) FIND DROP EXECUTE
 ;
 1 25 LOADR+ ( xcomp core low )
diff --git a/blk/394 b/blk/394
index 36de94d..99faa9c 100644
--- a/blk/394
+++ b/blk/394
@@ -1,5 +1,5 @@
 : ABORT (resSP) QUIT ;
-: ERR LIT< (print) (find) IF EXECUTE THEN ABORT ;
+: ERR LIT< (print) FIND IF EXECUTE THEN ABORT ;
 : = CMP NOT ; : < CMP -1 = ; : > CMP 1 = ;
 : 0< 32767 > ; : >= < NOT ; : <= > NOT ; : 0>= 0< NOT ;
 : >< ( n l h -- f ) 2 PICK > ( n l f ) ROT ROT > AND ;
diff --git a/blk/403 b/blk/403
index 752f865..b97157c 100644
--- a/blk/403
+++ b/blk/403
@@ -4,5 +4,5 @@
     (parseb) IF EXIT THEN
     (parsed) IF EXIT THEN
     ( nothing works )
-    LIT< (wnf) (find) IF EXECUTE ELSE ABORT THEN
+    LIT< (wnf) FIND IF EXECUTE ELSE ABORT THEN
 ;
diff --git a/blk/410 b/blk/410
index 6e8981c..852716f 100644
--- a/blk/410
+++ b/blk/410
@@ -1,7 +1,7 @@
-: '? WORD (find) ;
+: '? WORD FIND ;
 : '
     '? (?br) [ 4 , ] EXIT
-    LIT< (wnf) (find) DROP EXECUTE
+    LIT< (wnf) FIND DROP EXECUTE
 ;
 : ROLL
     DUP NOT IF EXIT THEN
diff --git a/blk/432 b/blk/432
index f3883ca..4e7bad7 100644
--- a/blk/432
+++ b/blk/432
@@ -1,7 +1,7 @@
 : INTERPRET
     BEGIN
     WORD DUP C@ EOT? IF DROP EXIT THEN
-    (find) NOT IF (parse) ELSE EXECUTE THEN
+    FIND NOT IF (parse) ELSE EXECUTE THEN
     C<? NOT IF SPC LIT< ok (print) NL THEN
     AGAIN ;
 ( Read from BOOT C< PTR and inc it. )
diff --git a/blk/437 b/blk/437
index 3c53782..80dd387 100644
--- a/blk/437
+++ b/blk/437
@@ -9,7 +9,7 @@
     (entry)
     [ 14 ( == compiledWord ) LITN ] C,
     BEGIN
-        WORD (find)
+        WORD FIND
         IF ( is word ) DUP IMMED? IF EXECUTE ELSE , THEN
         ELSE ( maybe number ) (parse) LITN THEN
     AGAIN ;
diff --git a/emul/forth.bin b/emul/forth.bin
index 4bf769f..45b66a1 100644
Binary files a/emul/forth.bin and b/emul/forth.bin differ