--- gforth/look.fs	1995/11/07 18:06:48	1.3
+++ gforth/look.fs	1996/05/13 16:37:01	1.4
@@ -32,7 +32,7 @@ decimal
 
 \ : >name ( xt -- nfa )
 \         BEGIN   1 chars -
-\                 dup c@ 128 and
+\                 dup c@ alias-mask and
 \         UNTIL ;
 
 : PrimStart ['] true >name ;