     [
         load-components
 
+        millis over - core-bootstrap-time set-global
+
         run-bootstrap-init
     ] with-compiler-errors
     :errors

: count-words ( pred -- )
    all-words swap count number>string write ;

: print-report ( time -- )
    1000 /i
    60 /mod swap
    "Bootstrap completed in " write number>string write


[
    ! We time bootstrap
    millis

    default-image-name "output-image" set-global

