--- gforth/kernel/main.fs 1998/08/29 20:46:14 1.8 +++ gforth/kernel/main.fs 1998/10/10 10:28:36 1.9 @@ -116,5 +116,5 @@ has? header [IF] UNLOCK Tlast @ LOCK -1 cells - dup forth-wordlist ! Last ! +1 cells - dup forth-wordlist cell+ ! Last ! .unresolved