From 097111e7c252a85481e3d4622a267913146d2576 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 18 Nov 2009 18:26:27 -0600
Subject: [PATCH 1/2] use system-micros

---
 basis/io/pipes/windows/nt/nt.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/io/pipes/windows/nt/nt.factor b/basis/io/pipes/windows/nt/nt.factor
index cec03cf6d3..1e51b0cc2b 100644
--- a/basis/io/pipes/windows/nt/nt.factor
+++ b/basis/io/pipes/windows/nt/nt.factor
@@ -35,7 +35,7 @@ IN: io.pipes.windows.nt
         "-" %
         32 random-bits #
         "-" %
-        micros #
+        system-micros #
     ] "" make ;
 
 M: winnt (pipe) ( -- pipe )

From 41b931a615a058ddb46299405c4c015a97917809 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 18 Nov 2009 18:34:16 -0600
Subject: [PATCH 2/2] fix system docs

---
 core/system/system-docs.factor | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/core/system/system-docs.factor b/core/system/system-docs.factor
index 3148fd6fdb..7414f6be60 100644
--- a/core/system/system-docs.factor
+++ b/core/system/system-docs.factor
@@ -1,6 +1,5 @@
 USING: generic help.markup help.syntax kernel math memory
-namespaces sequences kernel.private strings classes.singleton
-tools.time ;
+namespaces sequences kernel.private strings classes.singleton ;
 IN: system
 
 ABOUT: "system"
@@ -18,7 +17,7 @@ ARTICLE: "system" "System interface"
 "Getting the current time:"
 { $subsections
     system-micros
-    system-micros
+    system-millis
 }
 "Getting a monotonically increasing nanosecond count:"
 { $subsections nano-count }
@@ -93,7 +92,7 @@ HELP: system-millis ( -- ms )
 HELP: nano-count ( -- ns )
 { $values { "ns" integer } }
 { $description "Outputs a monotonically increasing count of nanoseconds elapsed since an arbitrary starting time. The difference of two calls to this word allows timing. This word is unaffected by system clock changes." }
-{ $notes "This is a low-level word. The " { $link time } " word may be used to time code execution time. For system time, use " { $link system-micros } "." } ;
+{ $notes "This is a low-level word. The " { $vocab-link "tools.time" } " vocabulary defines words to time code execution time. For system time, use " { $link system-micros } "." } ;
 
 HELP: image
 { $values { "path" "a pathname string" } }