--- gforth/wordinfo.fs	1994/02/11 16:30:47	1.1
+++ gforth/wordinfo.fs	1994/06/17 13:28:33	1.3
@@ -21,15 +21,15 @@ INCLUDE look.fs
 
 : var?  ( nfa -- flag )
         (name>)
-        @ ['] leavings @ = ;
+        >code-address ['] udp >code-address = ;
 
 : con?  ( nfa -- flag )
         (name>)
-        @ ['] bl @ = ;
+        >code-address ['] bl >code-address = ;
 
 : does? ( nfa -- flag )
         dup (name>)
-        @ ['] source @ =
+        >code-address ['] source >code-address =
         dup IF swap (name>) cell+ @ here ! ELSE nip THEN ;
 
 : defered? ( nfa -- flag )
@@ -40,7 +40,7 @@ INCLUDE look.fs
 
 : colon? ( nfa -- flag )
         (name>)
-        @ ['] does? @ = ;
+        >code-address ['] does? >code-address = ;
 
 \ VALUE VCheck