compaction: Inifnite headaches--cured! Two compact functions, one was not like the...

diff --git a/vm/compaction.cpp b/vm/compaction.cpp
index 49cbde2bf275df1e5a30a61dee11e0e07fef14e4..376bb5fcd43dad129fd05497f229ddb5598d98fc 100644 (file)
--- a/vm/compaction.cpp
+++ b/vm/compaction.cpp
@@ -334,6 +334,7 @@ void factor_vm::collect_compact_code_impl(bool trace_contexts_p)
 
        update_code_roots_for_compaction();
        callbacks->update();
+       code->initialize_all_blocks_set();
 }
 
 void factor_vm::collect_compact(bool trace_contexts_p)