diff --git a/ChangeLog b/ChangeLog
index a59416ac20..9777bf6824 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Fri Jun 29 16:39:06 2007  Koichi Sasada  <ko1@atdot.net>
+
+	* proc.c (proc_new): fix to return a proc object
+	  which block is contained.
+
 Fri Jun 29 15:43:59 2007  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* numeric.c (fix_pow): get rid of division by zero.  reported by
diff --git a/proc.c b/proc.c
index 59de71dd61..abf26a68bb 100644
--- a/proc.c
+++ b/proc.c
@@ -277,6 +277,10 @@ proc_new(VALUE klass, int is_lambda)
 	}
     }
 
+    if (block->proc) {
+	return block->proc;
+    }
+
     procval = vm_make_proc(th, cfp, block);
 
     if (is_lambda) {