Fixed a critical typo; ref #3798

1 files changed, 1 insertions, 1 deletions

diff --git a/src/vm.c b/src/vm.c
index 498b9ad8a..9486bd1f2 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -1804,7 +1804,7 @@ RETRY_TRY_BLOCK:
         if (mrb_type(blk) == MRB_TT_PROC) {
           struct RProc *p = mrb_proc_ptr(blk);
 
-          if (!MRB_PROC_STRICT_P(proc) &&
+          if (!MRB_PROC_STRICT_P(p) &&
               ci > mrb->c->cibase && p->env == ci[-1].env) {
             p->flags |= MRB_PROC_ORPHAN;
           }