--- gforth/kernel/int.fs	2000/05/15 14:04:12	1.47
+++ gforth/kernel/int.fs	2000/05/27 09:41:29	1.48
@@ -364,7 +364,7 @@ const Create ???  0 , 3 c, char ? c, cha
     \ in dubio pro:
     drop true ;
 
-: >head ( cfa -- nt ) \ gforth  to-head
+: >head-noprim ( cfa -- nt ) \ gforth  to-head-noprim
     $25 cell do ( cfa )
 	dup i - count $9F and + cfaligned over alias-mask + =
 	if ( cfa )
@@ -379,7 +379,7 @@ const Create ???  0 , 3 c, char ? c, cha
 
 [ELSE]
 
-: >head ( cfa -- nt ) \ gforth  to-head
+: >head-noprim ( cfa -- nt ) \ gforth  to-head-noprim
     $25 cell do ( cfa )
 	dup i - count $9F and + cfaligned over alias-mask + =
 	if ( cfa ) i - cell - unloop exit
@@ -389,8 +389,6 @@ const Create ???  0 , 3 c, char ? c, cha
 
 [THEN]
 
-' >head ALIAS >name
-
 : body> 0 >body - ;
 
 : (search-wordlist)  ( addr count wid -- nt | false )