From f3fae3f5c228da7165e9f44534ea6fb872d8111f Mon Sep 17 00:00:00 2001
From: Jesse McDonald <nybble41@gmail.com>
Date: Sat, 31 Oct 2020 13:29:33 -0500
Subject: [PATCH] add truncation to 63 characters max when looking up words

---
 startup.4th | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/startup.4th b/startup.4th
index bfbb9f6..8e5b13b 100644
--- a/startup.4th
+++ b/startup.4th
@@ -1763,7 +1763,7 @@ BOOTSTRAP-GET-ORDER SET-ORDER
 \ If the name is an immediate word return the execution token with status -1
 \ Otherwise return the execution token with status 1
 : SEARCH-WORDLIST ( c-addr u wid -- c-addr u 0 | xt 1 | xt -1 )
-   0 SWAP {
+   SWAP F_LENMASK UMIN 0 ROT {
      >R DROP 2DUP R@ >NAME COMPARE 0= IF
        2DROP R> DUP IMMEDIATE? 1 OR TRUE
      ELSE