From a3cb03548ca11ee1acebc86a444e5d95e929b9e7 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 19 Nov 2009 02:08:28 -0600
Subject: [PATCH] bootstrap.stage2: fix bootstrap time reporting

---
 basis/bootstrap/stage2.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/bootstrap/stage2.factor b/basis/bootstrap/stage2.factor
index 0ddcb58a4f..a4cd58c58a 100644
--- a/basis/bootstrap/stage2.factor
+++ b/basis/bootstrap/stage2.factor
@@ -59,7 +59,7 @@ SYMBOL: bootstrap-time
 
 [
     ! We time bootstrap
-    system-micros
+    system-micros 1000 /i
 
     default-image-name "output-image" set-global
 
@@ -84,14 +84,14 @@ SYMBOL: bootstrap-time
 
     load-components
 
-    system-micros over - core-bootstrap-time set-global
+    system-micros 1000 /i 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
+    system-micros 1000 /i swap - bootstrap-time set-global
     print-report
 
     "deploy-vocab" get [