--- gforth/search.fs	1997/10/04 18:26:52	1.3
+++ gforth/search.fs	1998/05/02 21:28:43	1.4
@@ -130,7 +130,7 @@ lookup ! \ our dictionary search order b
 : seal ( -- )  context @ 1 set-order ;
 
 : .voc
-    body> >head head>string type space ;
+    body> >head name>string type space ;
 
 : order ( -- )  \  search-ext
     \g prints the search order and the @code{current} wordlist.  The