diff --git a/ChangeLog b/ChangeLog
index 7d8eb58711..56886d679d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Wed Oct  7 01:20:46 2015  Koichi Sasada  <ko1@atdot.net>
+
+	* gc.h, gc.c: introduce new debug function rb_obj_info_dump(VALUE obj)	
+	  which prints the result of rb_raw_obj_info(..., obj).
+
 Wed Oct  7 01:16:11 2015  Koichi Sasada  <ko1@atdot.net>
 
 	* vm_args.c: remove an unused field args_info::calling.
diff --git a/gc.c b/gc.c
index 2b844479e1..a3f1e9975c 100644
--- a/gc.c
+++ b/gc.c
@@ -9049,6 +9049,13 @@ rb_obj_info(VALUE obj)
     }
 }
 
+void
+rb_obj_info_dump(VALUE obj)
+{
+    char buff[0x100];
+    fprintf(stderr, "rb_obj_info_dump: %s\n", rb_raw_obj_info(buff, 0x100, obj));
+}
+
 #if GC_DEBUG
 
 void
diff --git a/gc.h b/gc.h
index d1021df444..c723106137 100644
--- a/gc.h
+++ b/gc.h
@@ -88,6 +88,7 @@ int ruby_get_stack_grow_direction(volatile VALUE *addr);
 
 const char *rb_obj_info(VALUE obj);
 const char *rb_raw_obj_info(char *buff, const int buff_size, VALUE obj);
+void rb_obj_info_dump(VALUE obj);
 
 RUBY_SYMBOL_EXPORT_BEGIN