1 files changed, 1 insertions, 1 deletions
diff --git a/hv.c b/hv.c
index f8d585164b..6be56dba4f 100644
--- a/hv.c
+++ b/hv.c
@@ -46,7 +46,7 @@ S_more_he(pTHX)
     he = (HE*) Perl_get_arena(aTHX_ PERL_ARENA_SIZE);
 
     heend = &he[PERL_ARENA_SIZE / sizeof(HE) - 1];
-    PL_body_roots[HE_SVSLOT] = ++he;
+    PL_body_roots[HE_SVSLOT] = he;
     while (he < heend) {
 	HeNEXT(he) = (HE*)(he + 1);
 	he++;