Fixed a bug in recursive `mrb_top_run` calls; fix #4384

1 files changed, 1 insertions, 1 deletions

diff --git a/src/vm.c b/src/vm.c
index a7ecc575d..9c07b8caa 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -2863,11 +2863,11 @@ mrb_top_run(mrb_state *mrb, struct RProc *proc, mrb_value self, unsigned int sta
     return mrb_vm_run(mrb, proc, self, stack_keep);
   }
   ci = cipush(mrb);
+  ci->stackent = mrb->c->stack;
   ci->mid = 0;
   ci->acc = CI_ACC_SKIP;
   ci->target_class = mrb->object_class;
   v = mrb_vm_run(mrb, proc, self, stack_keep);
-  cipop(mrb);
 
   return v;
 }