use system-micros

diff --git a/basis/smtp/smtp.factor b/basis/smtp/smtp.factor
index 83457defa5350f066c0a1ecd2d936beff0fd6497..61ccd5c435c1d7401578927f2cdcd4ed1397d729 100644 (file)
--- 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* %
         ">" %