diff --git a/src/mzscheme/src/env.c b/src/mzscheme/src/env.c
index 1dae3448c6..b2d7e3a9f0 100644
--- a/src/mzscheme/src/env.c
+++ b/src/mzscheme/src/env.c
@@ -332,7 +332,7 @@ Scheme_Env *scheme_engine_instance_init() {
 /* These calls must be made here so that they allocate out of the master GC */
   scheme_init_symbol_table();
   scheme_init_module_path_table();
-
+  scheme_init_type();
 
 #if defined(MZ_PRECISE_GC) && defined(MZ_USE_PLACES)
   GC_switch_out_master_gc();
@@ -468,7 +468,6 @@ static void make_kernel_env(void)
 
   /* The ordering of the first few init calls is important, so add to
      the end of the list, not the beginning. */
-  MZTIMEIT(type, scheme_init_type(env));
   MZTIMEIT(symbol-type, scheme_init_symbol_type(env));
   MZTIMEIT(fun, scheme_init_fun(env));
   MZTIMEIT(symbol, scheme_init_symbol(env));
diff --git a/src/mzscheme/src/schpriv.h b/src/mzscheme/src/schpriv.h
index f45f9ade7a..101f851490 100644
--- a/src/mzscheme/src/schpriv.h
+++ b/src/mzscheme/src/schpriv.h
@@ -169,7 +169,7 @@ Scheme_Thread *scheme_make_thread(void*);
 void scheme_init_true_false(void);
 void scheme_init_symbol_table(void);
 void scheme_init_symbol_type(Scheme_Env *env);
-void scheme_init_type(Scheme_Env *env);
+void scheme_init_type();
 void scheme_init_list(Scheme_Env *env);
 void scheme_init_stx(Scheme_Env *env);
 void scheme_init_module(Scheme_Env *env);
diff --git a/src/mzscheme/src/type.c b/src/mzscheme/src/type.c
index 0f868b9bb3..5242dad035 100644
--- a/src/mzscheme/src/type.c
+++ b/src/mzscheme/src/type.c
@@ -85,7 +85,7 @@ static void init_type_arrays()
 }
 
 void
-scheme_init_type (Scheme_Env *env)
+scheme_init_type ()
 {
   if (!type_names)
     init_type_arrays();