diff --git a/eval.c b/eval.c
index 5746d60d8f..6f95f0fc9a 100644
--- a/eval.c
+++ b/eval.c
@@ -6993,6 +6993,7 @@ proc_invoke(proc, args, self, klass)
       case TAG_RETURN:
 	if (pcall) {
 	    result = prot_tag->retval;
+	    break;
 	}
 	else if (orphan) {	/* orphan block */
 	    char mesg[32];