diff --git a/ChangeLog b/ChangeLog
index e0a9a03ce7..746fbabce5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -14,11 +14,6 @@ Wed Oct 11 15:03:55 2006  Akinori MUSHA  <knu@iDaemons.org>
 	  recursive calls, but call initialize() when reset() is not
 	  defined in a subclass.
 
-Wed Oct 11 14:58:44 2006  Yukihiro Matsumoto  <matz@ruby-lang.org>
-
-	* array.c (rb_ary_each): prohibit array modification during each
-	  iteration.  [ruby-core:09104]
-
 Wed Oct 11 14:56:10 2006  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* ext/digest/sha1/sha1ossl.h: libssl 0.9.8c-3 defines no
diff --git a/array.c b/array.c
index d4957a95b3..5adb775207 100644
--- a/array.c
+++ b/array.c
@@ -1227,24 +1227,6 @@ rb_ary_insert(int argc, VALUE *argv, VALUE ary)
     return ary;
 }
 
-VALUE
-each_internal(VALUE ary)
-{
-    long i;
-
-    for (i=0; i<RARRAY_LEN(ary); i++) {
-	rb_yield(RARRAY_PTR(ary)[i]);
-    }
-    return ary;
-}
-
-static VALUE
-iter_unlock(VALUE ary)
-{
-    FL_UNSET(ary, ARY_TMPLOCK);
-    return ary;
-}
-
 /*
  *  call-seq:
  *     array.each {|item| block }   ->   array
@@ -1263,9 +1245,12 @@ iter_unlock(VALUE ary)
 VALUE
 rb_ary_each(VALUE ary)
 {
+    long i;
+
     RETURN_ENUMERATOR(ary, 0, 0);
-    FL_SET(ary, ARY_TMPLOCK);	/* prohibit modification during each */
-    rb_ensure(each_internal, ary, iter_unlock, ary);
+    for (i=0; i<RARRAY_LEN(ary); i++) {
+	rb_yield(RARRAY_PTR(ary)[i]);
+    }
     return ary;
 }
 
@@ -1638,6 +1623,13 @@ sort_internal(VALUE ary)
     return ary;
 }
 
+static VALUE
+sort_unlock(VALUE ary)
+{
+    FL_UNSET(ary, ARY_TMPLOCK);
+    return ary;
+}
+
 /*
  *  call-seq:
  *     array.sort!                   -> array
@@ -1660,7 +1652,7 @@ rb_ary_sort_bang(VALUE ary)
     rb_ary_modify(ary);
     if (RARRAY_LEN(ary) > 1) {
 	FL_SET(ary, ARY_TMPLOCK);	/* prohibit modification during sort */
-	rb_ensure(sort_internal, ary, iter_unlock, ary);
+	rb_ensure(sort_internal, ary, sort_unlock, ary);
     }
     return ary;
 }