diff --git a/ChangeLog b/ChangeLog
index 738ec2dfa7..8027b7d138 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Sun Sep 22 20:35:38 2013  Kazuki Tsujimoto  <kazuki@callcc.net>
+
+	* ext/-test-/tracepoint/tracepoint.c (Init_tracepoint): prevent from GC.
+
 Sun Sep 22 19:00:28 2013  Benoit Daloze  <eregontp@gmail.com>
 
 	* benchmark/bm_app_answer.rb: revert r42990, benchmark scripts should
diff --git a/ext/-test-/tracepoint/tracepoint.c b/ext/-test-/tracepoint/tracepoint.c
index 676224873f..f72f57c920 100644
--- a/ext/-test-/tracepoint/tracepoint.c
+++ b/ext/-test-/tracepoint/tracepoint.c
@@ -69,6 +69,10 @@ tracepoint_track_objspace_events(VALUE self)
 void
 Init_tracepoint(void)
 {
+    size_t i;
     VALUE mBug = rb_define_module("Bug");
     rb_define_module_function(mBug, "tracepoint_track_objspace_events", tracepoint_track_objspace_events, 0);
+    for (i=0; i<sizeof(objects)/sizeof(VALUE); i++) {
+	rb_global_variable(objects+i);
+    }
 }