--- gforth/history.fs	1997/12/01 21:15:03	1.16
+++ gforth/history.fs	1998/10/14 22:23:12	1.17
@@ -201,7 +201,7 @@ Create prefix-found  0 , 0 ,
 : search-prefix  ( addr1 len1 -- addr2 len2 )
     0 vp dup @ 1- cells over +
     DO  I 2@ <>
-        IF  I cell+ @ @ swap  search-voc  THEN
+        IF  I cell+ @ wordlist-id @ swap  search-voc  THEN
 	[ -1 cells ] Literal +LOOP
     prefix-string ;