diff --git a/ChangeLog b/ChangeLog
index 2b1184a8a8..c77b25506f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Thu Jun 28 02:03:39 2007  NAKAMURA Usaku  <usa@ruby-lang.org>
+
+	* parse.y (rb_intern2): unconstify cast.
+
 Thu Jun 28 01:44:31 2007  Tanaka Akira  <akr@fsij.org>
 
 	* parse.y (rb_intern2): don't allocate a string object at first.
diff --git a/parse.y b/parse.y
index 28354805ac..b3050d25cb 100644
--- a/parse.y
+++ b/parse.y
@@ -8396,7 +8396,7 @@ rb_intern2(const char *name, long len)
     fake_str.basic.flags = T_STRING|RSTRING_NOEMBED|FL_FREEZE;
     fake_str.basic.klass = rb_cString;
     fake_str.as.heap.len = len;
-    fake_str.as.heap.ptr = name;
+    fake_str.as.heap.ptr = (char *)name;
     fake_str.as.heap.aux.capa = len;
 
     if (st_lookup(global_symbols.sym_id, (st_data_t)&fake_str, (st_data_t *)&id))