diff --git a/src/mzscheme/src/hash.c b/src/mzscheme/src/hash.c
index 066ff3ec26..1ad3921db7 100644
--- a/src/mzscheme/src/hash.c
+++ b/src/mzscheme/src/hash.c
@@ -30,8 +30,8 @@
 #include <math.h>
 #include "../gc2/gc2_obj.h"
 
-int scheme_hash_request_count;
-int scheme_hash_iteration_count;
+long scheme_hash_request_count;
+long scheme_hash_iteration_count;
 
 #ifdef MZ_PRECISE_GC
 static void register_traversers(void);
@@ -519,7 +519,7 @@ scheme_make_bucket_table (int size, int type)
 
   table = MALLOC_ONE_TAGGED(Scheme_Bucket_Table);
 
-  table->size = 2;
+  table->size = 4;
   while (table->size < size) {
     table->size <<= 1;
   }
diff --git a/src/mzscheme/src/thread.c b/src/mzscheme/src/thread.c
index ccb97ddb84..8debebe367 100644
--- a/src/mzscheme/src/thread.c
+++ b/src/mzscheme/src/thread.c
@@ -122,8 +122,8 @@ extern void scheme_gmp_tls_restore_snapshot(long *s, long *save, int do_free);
 static void check_ready_break();
 
 extern int scheme_num_read_syntax_objects;
-extern int scheme_hash_request_count;
-extern int scheme_hash_iteration_count;
+extern long scheme_hash_request_count;
+extern long scheme_hash_iteration_count;
 #ifdef MZ_USE_JIT
 extern int scheme_jit_malloced;
 #else