--- gforth/wordinfo.fs	1994/05/18 17:30:03	1.2
+++ gforth/wordinfo.fs	1994/06/17 13:28:33	1.3
@@ -21,7 +21,7 @@ INCLUDE look.fs
 
 : var?  ( nfa -- flag )
         (name>)
-        >code-address ['] leavings >code-address = ;
+        >code-address ['] udp >code-address = ;
 
 : con?  ( nfa -- flag )
         (name>)