diff --git a/ChangeLog b/ChangeLog
index e398fdeece..4499a7f344 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Sat Jul 18 11:15:23 2009  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* re.h (RMATCH_REGS): added for compatibility.
+
 Sat Jul 18 07:56:00 2009  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 
 	* ext/tk/lib/tk.rb: fail to create a widget object for an unknown
diff --git a/re.h b/re.h
index 45b2753dd5..e87651a81c 100644
--- a/re.h
+++ b/re.h
@@ -27,6 +27,7 @@ struct RMatch {
 };
 
 #define RMATCH(obj)  (R_CAST(RMatch)(obj))
+#define RMATCH_REGS(obj)  (R_CAST(RMatch)(obj)->regs)
 
 VALUE rb_reg_regcomp _((VALUE));
 long rb_reg_search _((VALUE, VALUE, long, long));