diff --git a/src/mzscheme/src/type.c b/src/mzscheme/src/type.c
index e0582c5813..72049b5b9c 100644
--- a/src/mzscheme/src/type.c
+++ b/src/mzscheme/src/type.c
@@ -51,7 +51,7 @@ static void init_type_arrays()
   REGISTER_SO(scheme_type_hash2s);
   
   maxtype = _scheme_last_type_;
-  allocmax = maxtype + 10;
+  allocmax = maxtype + 100;
 
   type_names = MALLOC_N(char *, allocmax);
   scheme_type_readers = MALLOC_N_ATOMIC(Scheme_Type_Reader, allocmax);