--- gforth/kernel/pass.fs	2006/02/12 23:45:55	1.7
+++ gforth/kernel/pass.fs	2006/02/26 17:23:47	1.8
@@ -30,4 +30,4 @@ UNLOCK user-region extent nip LOCK udp !
 \ Set up last and forth-wordlist with the address of the last word's
 \ link field
 UNLOCK tlast @ LOCK
-1 cells - dup forth-wordlist wordlist-id ! Last !
+1 cells - dup forth-wordlist has? ec 0= [IF] wordlist-id [THEN] ! Last !