diff --git a/ChangeLog b/ChangeLog
index 6687baac1e..06b79f8b0a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Sun Jan 27 16:25:27 2008  NARUSE, Yui  <naruse@ruby-lang.org>
+
+	* re.c (rb_reg_source): set encoding as regexp encoding.
+
 Sun Jan 27 05:56:39 2008  Tanaka Akira  <akr@fsij.org>
 
 	* re.c (rb_reg_preprocess): force fixed encoding when ASCII
diff --git a/re.c b/re.c
index 0237319076..9d048a8cdd 100644
--- a/re.c
+++ b/re.c
@@ -311,7 +311,7 @@ rb_reg_source(VALUE re)
     VALUE str;
 
     rb_reg_check(re);
-    str = rb_str_new(RREGEXP(re)->str,RREGEXP(re)->len);
+    str = rb_enc_str_new(RREGEXP(re)->str,RREGEXP(re)->len, rb_enc_get(re));
     if (OBJ_TAINTED(re)) OBJ_TAINT(str);
     return str;
 }