--- gforth/kernel/toolsext.fs	1998/12/08 22:03:14	1.6
+++ gforth/kernel/toolsext.fs	1999/01/02 14:03:37	1.7
@@ -22,7 +22,7 @@ Variable countif
 
 : dummy ;  immediate
 : >exec  >r ; restrict ( :-)
-: scanIF   f83find  dup 0=  IF  drop ['] dummy >name  THEN  ;
+: scanIF   f83find  dup 0=  IF  drop ['] dummy >head  THEN  ;
 
 Create [struct]-search    ' scanIF A,  ' (reveal) A,  ' drop A, ' drop A,
 Create [struct]-voc       [struct]-search A,