--- gforth/look.fs 1998/12/08 22:02:46 1.11 +++ gforth/look.fs 1999/01/03 21:48:37 1.12 @@ -66,11 +66,11 @@ has? rom : PrimStart ['] true >name ; : look ( cfa -- lfa flag ) - dup dictionary-end forthstart within + dup in-dictionary? IF - PrimStart (look) - ELSE >name dup ??? <> + ELSE + PrimStart (look) THEN ; [THEN]