 
 [
     ! We time bootstrap
-    system-micros 1000 /i
+    system-micros
 
     default-image-name "output-image" set-global
 

    all-words swap count number>string write ; inline

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


    load-components

    system-micros over - core-bootstrap-time set-global

    run-bootstrap-init

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

    system-micros swap - bootstrap-time set-global
    print-report

    "deploy-vocab" get [
