diff --git a/ChangeLog b/ChangeLog
index 995c39f1ae..9760eb3b68 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Fri Aug 15 15:30:40 2008  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* vm.c (Init_VM): get rid of SEGV in a trace proc.
+
 Fri Aug 15 09:33:48 2008  Tanaka Akira  <akr@fsij.org>
 
 	* transcode.c (conv_init): check empty name.
diff --git a/vm.c b/vm.c
index d4e7307774..0272df2df2 100644
--- a/vm.c
+++ b/vm.c
@@ -1801,7 +1801,7 @@ Init_VM(void)
     rb_undef_alloc_func(rb_cRubyVM);
 
     /* ::VM::FrozenCore */
-    fcore = rb_module_new();
+    fcore = rb_class_new(rb_cBasicObject);
     RBASIC(fcore)->flags = T_ICLASS;
     klass = rb_singleton_class(fcore);
     rb_define_method_id(klass, id_core_set_method_alias, m_core_set_method_alias, 3);