diff --git a/ChangeLog b/ChangeLog
index 1bb9d1f085..c4e9ab5e9c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+Sat May  2 09:19:40 2009  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* array.c (Init_Array): made #to_s an alias to #inspect to reduce
+	  the result of recursive array.  a patch from ujihisa a
+	  [ruby-dev:38362]
+
 Fri May  1 16:50:05 2009  Akinori MUSHA  <knu@iDaemons.org>
 
 	* lib/set.rb (Set#merge): Only directly use the passed objects
diff --git a/array.c b/array.c
index f4732d9acb..198f0570f1 100644
--- a/array.c
+++ b/array.c
@@ -3941,8 +3941,8 @@ Init_Array(void)
     rb_define_method(rb_cArray, "initialize", rb_ary_initialize, -1);
     rb_define_method(rb_cArray, "initialize_copy", rb_ary_replace, 1);
 
-    rb_define_method(rb_cArray, "to_s", rb_ary_inspect, 0);
     rb_define_method(rb_cArray, "inspect", rb_ary_inspect, 0);
+    rb_define_alias(rb_cArray,  "to_s", "inspect");
     rb_define_method(rb_cArray, "to_a", rb_ary_to_a, 0);
     rb_define_method(rb_cArray, "to_ary", rb_ary_to_ary_m, 0);
     rb_define_method(rb_cArray, "frozen?",  rb_ary_frozen_p, 0);