--- gforth/Attic/search-order.fs	1996/05/06 12:39:03	1.17
+++ gforth/Attic/search-order.fs	1996/05/09 18:13:03	1.18
@@ -34,7 +34,7 @@ Variable vp
 AVariable voclink
 
 Defer 'initvoc
-' drop IS 'initvoc
+' drop ' 'initvoc >body !
 
 Variable slowvoc   slowvoc off