--- gforth/look.fs	1995/11/07 18:06:48	1.3
+++ gforth/look.fs	1996/08/21 14:58:42	1.5
@@ -32,7 +32,7 @@ decimal
 
 \ : >name ( xt -- nfa )
 \         BEGIN   1 chars -
-\                 dup c@ 128 and
+\                 dup c@ alias-mask and
 \         UNTIL ;
 
 : PrimStart ['] true >name ;
@@ -42,7 +42,7 @@ decimal
 : (look)  ( xt startlfa -- lfa flag )
         false swap
         BEGIN @ dup
-        WHILE dup name>
+        WHILE dup name>int
               3 pick = IF nip dup THEN
         REPEAT
         drop nip