diff --git a/ChangeLog b/ChangeLog
index 93e87fd2f1..021556f1d2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Wed Oct 18 22:56:51 2006  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* array.c (rb_ary_shift): shorten copy size.  fixed: [ruby-list:42907]
+
 Wed Oct 18 13:25:50 2006  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* string.c (rb_str_each_line): String#lines now works when a block
diff --git a/array.c b/array.c
index 458310a69b..bfaf85e85f 100644
--- a/array.c
+++ b/array.c
@@ -618,7 +618,7 @@ rb_ary_shift(VALUE ary)
     if (RARRAY_LEN(ary) == 0) return Qnil;
     top = RARRAY_PTR(ary)[0];
     if (ARY_EMBED_P(ary)) {
-	MEMMOVE(RARRAY_PTR(ary), RARRAY_PTR(ary)+1, VALUE, RARRAY_LEN(ary));
+	MEMMOVE(RARRAY_PTR(ary), RARRAY_PTR(ary)+1, VALUE, RARRAY_LEN(ary)-1);
 	ARY_SET_EMBED_LEN(ary, RARRAY_LEN(ary)-1);
 	return top;
     }