diff --git a/C/grow.c b/C/grow.c index 846f03f81..e51fbfbcf 100644 --- a/C/grow.c +++ b/C/grow.c @@ -820,7 +820,7 @@ static_growglobal(long request, CELL **ptr, CELL *hsplit) LDiff = TrDiff = size; } else { /* we may still have an overflow */ - BaseDiff = Yap_GlobalBase != old_GlobalBase; + BaseDiff = Yap_GlobalBase - old_GlobalBase; /* if we grow, we need to move the stacks */ LDiff = TrDiff = BaseDiff+size; }