X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fpurify.c;h=944a5e7713f6ca5ce34579c638a09290666e2ec2;hb=1de12891f900d156ed035a097561ecd7755a256a;hp=56ec2078707f0d00885bc101ae48df726a3ecd3e;hpb=a41c057bfe9d8b0b53d2765b8559f18327f28813;p=sbcl.git

diff --git a/src/runtime/purify.c b/src/runtime/purify.c
index 56ec207..944a5e7 100644
--- a/src/runtime/purify.c
+++ b/src/runtime/purify.c
@@ -1588,7 +1588,7 @@ purify(lispobj static_roots, lispobj read_only_roots)
 #endif
 
     os_zero((os_vm_address_t) current_dynamic_space,
-            (os_vm_size_t) DYNAMIC_SPACE_SIZE);
+            (os_vm_size_t) dynamic_space_size);
 
     /* Zero the stack. Note that the stack is also zeroed by SUB-GC
      * calling SCRUB-CONTROL-STACK - this zeros the stack on the x86. */