diff --git a/table.c b/table.c
index 7487321e..8047b14a 100644
--- a/table.c
+++ b/table.c
@@ -3,7 +3,7 @@
 ** Module to control static tables
 */
 
-char *rcs_table="$Id: table.c,v 2.14 1994/11/09 18:11:47 roberto Exp roberto $";
+char *rcs_table="$Id: table.c,v 2.15 1994/11/10 20:41:37 roberto Exp roberto $";
 
 #include <stdlib.h>
 #include <string.h>
@@ -149,7 +149,7 @@ int lua_findconstant (char *s)
 */
 void lua_travsymbol (void (*fn)(Object *))
 {
- int i;
+ Word i;
  for (i=0; i<lua_ntable; i++)
   fn(&s_object(i));
 }
@@ -188,7 +188,7 @@ void lua_pack (void)
  lua_hashcollector();
 
  lua_nentity = 0;				/* reset counter */
- lua_block=2*lua_block-3*lua_recovered/2;	/* adapt block size */
+ lua_block=2*lua_block-3*lua_recovered/2U;	/* adapt block size */
 }