gcl.git - GNU Common Lisp

diff --git a/gcl/o/sfaslmacho.c b/gcl/o/sfaslmacho.c
index 84181447a..19e157277 100644
--- a/gcl/o/sfaslmacho.c
+++ b/gcl/o/sfaslmacho.c

@@ -205,6 +205,7 @@ load_memory(struct section *sec1,struct section *sece,void *v1,

memory->cfd.cfd_size=sz;

memory->cfd.cfd_self=0;

memory->cfd.cfd_start=0;

+ memory->cfd.cfd_dlist=Cnil;

prefer_low_mem_contblock=TRUE;

memory->cfd.cfd_start=alloc_contblock(sz);

prefer_low_mem_contblock=FALSE;