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

---
 basis/smtp/smtp.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/smtp/smtp.factor b/basis/smtp/smtp.factor
index 83457defa5..61ccd5c435 100644
--- a/basis/smtp/smtp.factor
+++ b/basis/smtp/smtp.factor
@@ -187,7 +187,7 @@ ERROR: invalid-header-string string ;
         "<" %
         64 random-bits #
         "-" %
-        micros #
+        system-micros #
         "@" %
         smtp-domain get [ host-name ] unless* %
         ">" %
-- 
2.34.1