print correct time on bootstrap

basis/bootstrap/stage2.factor

@@ -36,7 +36,7 @@ SYMBOL: bootstrap-time
     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 ;
@@ -59,7 +59,7 @@ SYMBOL: bootstrap-time
 
 [
     ! We time bootstrap
-    system-micros 1000 /i
+    system-micros
 
     default-image-name "output-image" set-global
 
@@ -84,14 +84,14 @@ SYMBOL: bootstrap-time
 
     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 [