vm: initialize all_blocks set after initial fixup

diff --git a/vm/image.cpp b/vm/image.cpp
index 806db02ca4b9cbce2363db3f59d026b8b059f75b..bd66b9fee1fba1e1b167e70860b4704a232f10ae 100755 (executable)
--- a/vm/image.cpp
+++ b/vm/image.cpp
@@ -53,7 +53,6 @@ void factor_vm::load_code_heap(FILE *file, image_header *h, vm_parameters *p)
        }
 
        code->allocator->initial_free_list(h->code_size);
-       code->initialize_all_blocks_set();
 }
 
 struct startup_fixup {
@@ -285,6 +284,8 @@ void factor_vm::load_image(vm_parameters *p)
        fixup_data(data_offset,code_offset);
        fixup_code(data_offset,code_offset);
 
+       code->initialize_all_blocks_set();
+
        /* Store image path name */
        special_objects[OBJ_IMAGE] = allot_alien(false_object,(cell)p->image_path);
 }