diff --git a/ChangeLog b/ChangeLog
index 471ffe0b90..d0d02f0c95 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Wed Jul 24 08:04:49 2013  Koichi Sasada  <ko1@atdot.net>
+
+	* test/-ext-/tracepoint/test_tracepoint.rb: add GC on/off to count
+	  GC events strictly.
+
 Tue Jul 23 23:19:24 2013  NARUSE, Yui  <naruse@ruby-lang.org>
 
 	* ext/openssl/extconf.rb (CRYPTO_THREADID): check exist or not.
diff --git a/test/-ext-/tracepoint/test_tracepoint.rb b/test/-ext-/tracepoint/test_tracepoint.rb
index efbf40b460..7d079779a8 100644
--- a/test/-ext-/tracepoint/test_tracepoint.rb
+++ b/test/-ext-/tracepoint/test_tracepoint.rb
@@ -25,11 +25,15 @@ class TestTracepointObj < Test::Unit::TestCase
 
     stat1 = {}
     stat2 = {}
+    GC.disable
     GC.stat(stat1)
     result = Bug.tracepoint_track_objspace_events{
+      GC.enable
       1_000_000.times{''}
+      GC.disable
     }
     GC.stat(stat2)
+    GC.enable
 
     newobj_count, free_count, gc_start_count, gc_end_count, *newobjs = *result