--- 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<size && from[i]!='/'; i++)
       ;
     {