diff --git a/ChangeLog b/ChangeLog
index 8166a7dda6..62f8e5fdb0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,4 +1,4 @@
-Tue Dec 17 19:29:45 2002  Nobuyoshi Nakada  <nobu.nokada@softhome.net>
+Tue Dec 17 21:08:29 2002  Nobuyoshi Nakada  <nobu.nokada@softhome.net>
 
 	* node.h (NODE_ATTRASGN): new node, assignment to attribute.
 	  [ruby-core:00637].
@@ -9,6 +9,8 @@ Tue Dec 17 19:29:45 2002  Nobuyoshi Nakada  <nobu.nokada@softhome.net>
 
 	* string.c (rb_str_substr): tail sharing.  [ruby-core:00650]
 
+	* re.c (rb_reg_nth_match): ditto.
+
 Tue Dec 17 04:03:45 2002  Tanaka Akira  <akr@m17n.org>
 
         * lib/open-uri.rb: new file.
diff --git a/re.c b/re.c
index 8d482736d4..52fca7c2e4 100644
--- a/re.c
+++ b/re.c
@@ -778,8 +778,8 @@ rb_reg_nth_match(nth, match)
     if (start == -1) return Qnil;
     end = RMATCH(match)->END(nth);
     len = end - start;
-    str = rb_str_new(RSTRING(RMATCH(match)->str)->ptr + start, len);
-    if (OBJ_TAINTED(match)) OBJ_TAINT(str);
+    str = rb_str_substr(RMATCH(match)->str, start, len);
+    OBJ_INFECT(str, match);
     return str;
 }