     ] with-compilation-unit ;
 
 : build-image ( -- image )
-    600,000 <vector> image set
+    600,000 <vector> bootstrapping-image set
     60,000 <hashtable> objects set
     emit-image-header t, 0, 1, -1,
     "Building generic words..." print flush

    fixup-words
    "Performing header fixups..." print flush
    fixup-header
    "Image length: " write image get length .
    "Object cache size: " write objects get assoc-size .
    \ last-word global delete-at
    image get ;

! Image output


        d>w/w big-endian get [ swap ] unless emit emit
    ] if ;

: emit-seq ( seq -- ) bootstrapping-image get push-all ;

: fixup ( value offset -- ) bootstrapping-image get set-nth ;

: heap-size ( -- size )
    bootstrapping-image get length header-size - special-objects-size -
    bootstrap-cells ;

: here ( -- size ) heap-size data-base + ;
