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

    [ ] [ [ vocabulary>> ] [ name>> ] bi not-in-image ] ?if ;

: fixup-words ( -- )
    image get [ dup word? [ fixup-word ] when ] map! drop ;

M: word ' ;


    ] with-compilation-unit ;

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