--- gforth/search.fs	1999/12/03 18:24:23	1.13
+++ gforth/search.fs	2000/05/27 09:41:28	1.14
@@ -189,7 +189,7 @@ lookup ! \ our dictionary search order b
   context @ 1 set-order ;
 
 : .voc
-    body> >head name>string type space ;
+    body> >head-noprim name>string type space ;
 
 : order ( -- )  \  gforthman- search-ext
   \G Print the search order and the compilation word list.  The