--- gforth/wordinfo.fs	1996/01/07 17:22:17	1.9
+++ 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
@@ -51,7 +51,7 @@ INCLUDE look.fs
 : does? ( nfa -- flag )
     \ !! does not work on all installations
     cell+ (name>)
-    >code-address ['] bits >code-address = ;
+    >code-address ['] spaces >code-address = ;
 
 : defered? ( nfa -- flag )
     cell+ (name>) >code-address dodefer: = ;