* eval.c (proc_invoke): should update "result" for orphans.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4572 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index 7cc68613a3..56f33baabe 100644
--- a/eval.c
+++ b/eval.c
@@ -7035,7 +7035,7 @@ proc_invoke(proc, args, self, klass)
 	proc_set_safe_level(proc);
 	result = rb_yield_0(args, self, self!=Qundef?CLASS_OF(self):0, pcall, Qtrue);
     }
-    else if (pcall || TAG_DST()) {
+    else if (pcall || orphan || TAG_DST()) {
 	result = prot_tag->retval;
     }
     POP_TAG();