1 files changed, 9 insertions, 1 deletions
diff --git a/object.c b/object.c
index 8e1c25b519..3db26148e6 100644
--- a/object.c
+++ b/object.c
@@ -990,8 +990,16 @@ VALUE
 rb_Array(val)
     VALUE val;
 {
+    ID to_ary;
+
     if (TYPE(val) == T_ARRAY) return val;
-    val = rb_funcall(val, rb_intern("to_a"), 0);
+    to_ary = rb_intern("to_ary");
+    if (rb_respond_to(val, to_ary)) {
+	val = rb_funcall(val, to_ary, 0);
+    }
+    else {
+	val = rb_funcall(val, rb_intern("to_a"), 0);
+    }
     if (TYPE(val) != T_ARRAY) {
 	rb_raise(rb_eTypeError, "`to_a' did not return Array");
     }