cloning the stack (part 1)

p4raw-id: //depot/perl@4588

1 files changed, 1 insertions, 1 deletions

diff --git a/deb.c b/deb.c
index 0eaa056f58..36b8ca3b68 100644
--- a/deb.c
+++ b/deb.c
@@ -88,7 +88,7 @@ Perl_debstack(pTHX)
     dTHR;
     I32 top = PL_stack_sp - PL_stack_base;
     register I32 i = top - 30;
-    I32 *markscan = PL_curstackinfo->si_markbase;
+    I32 *markscan = PL_markstack + PL_curstackinfo->si_markoff;
 
     if (i < 0)
 	i = 0;