--- gforth/wordinfo.fs	1996/01/25 16:45:57	1.10
+++ gforth/wordinfo.fs	1996/05/13 16:37:03	1.11
@@ -32,7 +32,7 @@ INCLUDE look.fs
 \ it in many respects - anton
 : alias? ( nfa1 -- nfa2|0 )
     \ if nfa1 is an alias, nfa2 is the name of the original word
-    cell+ dup c@ $80 and 0=
+    cell+ dup c@ alias-mask and 0=
     IF
 	(name>) @ >name ( use look instead? )
     ELSE