--- gforth/kernel/int.fs	1999/12/12 12:49:52	1.44
+++ gforth/kernel/int.fs	2000/03/19 23:04:13	1.45
@@ -365,7 +365,7 @@ const Create ???  0 , 3 c, char ? c, cha
     drop true ;
 
 : >head ( cfa -- nt ) \ gforth  to-head
-    $21 cell do ( cfa )
+    $25 cell do ( cfa )
 	dup i - count $9F and + cfaligned over alias-mask + =
 	if ( cfa )
 	    dup i - cell - dup head?
@@ -380,7 +380,7 @@ const Create ???  0 , 3 c, char ? c, cha
 [ELSE]
 
 : >head ( cfa -- nt ) \ gforth  to-head
-    $21 cell do ( cfa )
+    $25 cell do ( cfa )
 	dup i - count $9F and + cfaligned over alias-mask + =
 	if ( cfa ) i - cell - unloop exit
 	then