aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--src/areapools.adb1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/areapools.adb b/src/areapools.adb
index dd2e38257..6b49b2d64 100644
--- a/src/areapools.adb
+++ b/src/areapools.adb
@@ -105,6 +105,7 @@ package body Areapools is
if Erase_When_Released
and then M.Last /= null
+ and then M.Next_Use /= 0
then
declare
Last : Size_Type;