Saving the image performs a code GC

diff --git a/vm/image.c b/vm/image.c
index 73d064b5ab35a200a5a2be387b9a85ec1f2cfd95..b07a2b58c275fcfbde816aa141ba6f2a4ff4f6de 100644 (file)
--- a/vm/image.c
+++ b/vm/image.c
@@ -116,7 +116,7 @@ void primitive_save_image(void)
 {
        F_STRING* filename;
        /* do a full GC to push everything into tenured space */
-       garbage_collection(TENURED,false);
+       garbage_collection(TENURED,true);
        filename = untag_string(dpop());
        save_image(to_char_string(filename,true));
 }