cloning the stack (part 1)

p4raw-id: //depot/perl@4588

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index 093ac2fab1..9f3a8ae160 100644
--- a/perl.c
+++ b/perl.c
@@ -2690,7 +2690,7 @@ Perl_init_stacks(pTHX)
     PL_markstack_ptr = PL_markstack;
     PL_markstack_max = PL_markstack + REASONABLE(32);
 
-    SET_MARKBASE;
+    SET_MARK_OFFSET;
 
     New(54,PL_scopestack,REASONABLE(32),I32);
     PL_scopestack_ix = 0;