 
     load-components
 
-    system-micros 1000 /i over - core-bootstrap-time set-global
+    system-micros 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
+    system-micros swap - bootstrap-time set-global
     print-report
 
     "deploy-vocab" get [


[
    ! We time bootstrap
    system-micros 1000 /i

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


    all-words swap count number>string write ; inline

: print-time ( us -- )
    1000 /i
    60 /mod swap
    number>string write
    " minutes and " write number>string write " seconds." print ;
