diff --git a/ChangeLog b/ChangeLog
index 7eb6f87ff4..4c68c79883 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Sat Dec 13 17:17:59 2003  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* eval.c (proc_alloc): cache the created object at first time.
+	  [ruby-talk:61288], [ruby-dev:22240]
+
 Sat Dec 13 09:01:23 2003  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* configure.in: check ucontext.h.
diff --git a/eval.c b/eval.c
index 8361149bd2..03715c1851 100644
--- a/eval.c
+++ b/eval.c
@@ -7066,6 +7066,7 @@ proc_alloc(klass, proc)
     data->orig_thread = rb_thread_current();
     data->wrapper = ruby_wrapper;
     data->iter = data->prev?Qtrue:Qfalse;
+    data->block_obj = block;
     frame_dup(&data->frame);
     if (data->iter) {
 	blk_copy_prev(data);