diff --git a/ChangeLog b/ChangeLog
index 89deb047e0..275de7e8b0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Tue Nov 19 18:49:32 2013  Koichi Sasada  <ko1@atdot.net>
+
+	* gc.c (rb_objspace_reachable_objects_from_root): do major marking.
+
 Tue Nov 19 18:45:40 2013  Koichi Sasada  <ko1@atdot.net>
 
 	* gc.c (rb_gc_resurrect): added.
diff --git a/gc.c b/gc.c
index 1fb8e763cf..7b4fa0e15a 100644
--- a/gc.c
+++ b/gc.c
@@ -5313,7 +5313,7 @@ rb_objspace_reachable_objects_from_root(void (func)(const char *category, VALUE,
 
     objspace->mark_func_data = &mfd;
     {
-	gc_mark_roots(objspace, FALSE, &data.category);
+	gc_mark_roots(objspace, TRUE, &data.category);
     }
     objspace->mark_func_data = 0;
 }