     all-words swap count number>string write ; inline
 
 : print-time ( us -- )
-    1000000 /i
+    1000 /i
     60 /mod swap
     number>string write
     " minutes and " write number>string write " seconds." print ;


    load-components

    system-micros 1000 /i over - core-bootstrap-time set-global

    run-bootstrap-init

    f error set-global
    f error-continuation set-global

    system-micros 1000 /i swap - bootstrap-time set-global
    print-report

    "deploy-vocab" get [


[
    ! We time bootstrap
    system-micros

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

