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

        [
            [
                {
                    [ hashcode <fake-bignum> , ]
                    [ name>> , ]
                    [ vocabulary>> , ]
                    [ def>> , ]
                    [ props>> , ]
                    [ pic-def>> , ]
                    [ pic-tail-def>> , ]
                    [ word-sub-primitive , ]
                    [ drop 0 , ] ! entry point
                } cleave
            ] { } make [ ' ] map
        ] bi
        \ word [ emit-seq ] emit-object
    ] keep put-object ;

! Image output

: (write-image) ( image -- )
    bootstrap-cell output-stream get
    big-endian get
    [ '[ _ >be _ stream-write ] each ]
    [ '[ _ >le _ stream-write ] each ] if ;

: write-image ( image -- )
    "Writing image to " write
