--- gforth/wordinfo.fs	1996/08/21 14:58:45	1.12
+++ gforth/wordinfo.fs	1996/08/26 10:07:22	1.13
@@ -49,9 +49,8 @@ INCLUDE look.fs
     ((name>)) >code-address douser: = ;
 
 : does? ( nfa -- flag )
-    \ !! does not work on all installations
     ((name>))
-    >code-address ['] spaces >code-address = ;
+    >does-code 0<> ;
 
 : defered? ( nfa -- flag )
     ((name>)) >code-address dodefer: = ;