1 files changed, 2 insertions, 1 deletions
diff --git a/dump.c b/dump.c
index a817b43cce..c4bb3ce09c 100644
--- a/dump.c
+++ b/dump.c
@@ -2467,7 +2467,8 @@ Perl_runops_debug(pTHX)
     PERL_ASYNC_CHECK();
 
 #if defined DEBUGGING && !defined DEBUGGING_RE_ONLY
-    PL_curstackinfo->si_stack_hwm = orig_stack_hwm;
+    if (PL_curstackinfo->si_stack_hwm < orig_stack_hwm)
+        PL_curstackinfo->si_stack_hwm = orig_stack_hwm;
 #endif
     TAINT_NOT;
     return 0;