--- gforth/kernel/int.fs	2003/02/01 14:28:08	1.95
+++ gforth/kernel/int.fs	2003/02/06 16:49:17	1.96
@@ -388,7 +388,7 @@ const Create ???  0 , 3 , char ? c, char
 
 : >head-noprim ( cfa -- nt ) \ gforth  to-head-noprim
     \ also heuristic; finds only names with up to 32 chars
-    $25 cell do ( cfa )
+    dup forthstart - 41 min cell max cell ?do ( cfa )
 	dup i - dup @ [ alias-mask lcount-mask or ] literal
 	[ 1 bits/char 3 - lshift 1 - 1 bits/char 1 - lshift or
 	-1 cells allot bigendian [IF]   c, -1 1 cells 1- times