--- gforth/table.fs	2000/09/23 15:46:59	1.5
+++ gforth/table.fs	2001/01/28 16:54:55	1.6
@@ -23,7 +23,7 @@ require hash.fs
 \ table (case-sensitive wordlist)
 
 : table-find ( addr len wordlist -- nfa / false )
-    >r 2dup r> bucket @ (tablefind) ;
+    >r 2dup r> bucket @ (tablelfind) ;
 
 Create tablesearch-map ( -- wordlist-map )
     ' table-find A, ' hash-reveal A, ' (rehash) A, ' (rehash) A,