diff --git a/ChangeLog b/ChangeLog
index 512f321a91..a018d85306 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Thu Jun  5 10:03:29 2014  Koichi Sasada  <ko1@atdot.net>
+
+	* gc.c (obj_free): check also FL_PROMOTED bit by RVALUE_OLD_P().
+
 Thu Jun  5 03:45:28 2014  Eric Wong  <e@80x24.org>
 
 	* configure.in: add --with-jemalloc option
diff --git a/gc.c b/gc.c
index 5be3ca1294..18984fd036 100644
--- a/gc.c
+++ b/gc.c
@@ -1562,7 +1562,7 @@ obj_free(rb_objspace_t *objspace, VALUE obj)
     }
 
 #if USE_RGENGC
-    if (MARKED_IN_BITMAP(GET_HEAP_OLDGEN_BITS(obj), obj)) {
+    if (RVALUE_OLD_P(obj)) {
 	CLEAR_IN_BITMAP(GET_HEAP_OLDGEN_BITS(obj), obj);
     }
 #endif