diff --git a/compiler/loadcom.lisp b/compiler/loadcom.lisp
index 25101d183c3d35aec1757e8e8291d3a5d26b9762..4da15e56e7cf1094a5f1abd6a088c3c56db86978 100644
--- a/compiler/loadcom.lisp
+++ b/compiler/loadcom.lisp
@@ -33,6 +33,7 @@
 (load "c:type" :verbose t)
 (load "c:vm-type" :verbose t)
 (load "c:type-init" :verbose t)
+(setq *type-system-initialized* t)
 (load "c:sset" :verbose t)
 (load "c:node" :verbose t)
 (load "c:alloc" :verbose t)