--- gforth/glocals.fs	1999/05/15 20:00:20	1.42
+++ gforth/glocals.fs	2000/05/27 09:41:28	1.43
@@ -324,7 +324,7 @@ also locals-types
 \ the returned nfa denotes a word that produces what W: produces
 \ !! do the whole thing without nextname
     drop nextname
-    ['] W: >name ;
+    ['] W: >head-noprim ;
 
 previous