diff --git a/ChangeLog b/ChangeLog
index ab15b99842..6c8db575b7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+Thu Sep 18 22:43:20 2003  Yukihiro Matsumoto  <matz@ruby-lang.org>
+
+	* eval.c (proc_invoke): should push PROT_PCALL tag for orphans.
+
+	* eval.c (proc_invoke): should update "result" for orphans.
+
 Thu Sep 18 20:30:17 2003  Tanaka Akira  <akr@m17n.org>
 
 	* lib/pathname.rb: update document.
diff --git a/eval.c b/eval.c
index 56f33baabe..ec0a03118b 100644
--- a/eval.c
+++ b/eval.c
@@ -7029,7 +7029,7 @@ proc_invoke(proc, args, self, klass)
 
     PUSH_ITER(ITER_CUR);
     ruby_frame->iter = ITER_CUR;
-    PUSH_TAG(pcall ? PROT_PCALL : PROT_CALL);
+    PUSH_TAG((pcall || orphan) ? PROT_PCALL : PROT_CALL);
     state = EXEC_TAG();
     if (state == 0) {
 	proc_set_safe_level(proc);