--- gforth/Attic/engine.c 1996/12/28 17:19:24 1.38 +++ gforth/Attic/engine.c 1997/02/06 21:22:58 1.39 @@ -110,7 +110,7 @@ char *tilde_cstr(Char *from, UCell size, s2 = from+1; s2_len = size-1; } else { - int i; + UCell i; for (i=1; i