# HG changeset patch
# User wenzelm
# Date 1253467053 -7200
# Node ID bfbdeddc03bc9cfd2f36dc783c95df793dcb3764
# Parent  8ef1aa1cfcc75d40c52599091a77194a91fce7d3
tuned tracing;

diff -r 8ef1aa1cfcc7 -r bfbdeddc03bc src/Pure/Concurrent/future.ML
--- a/src/Pure/Concurrent/future.ML	Sun Sep 20 18:37:55 2009 +0200
+++ b/src/Pure/Concurrent/future.ML	Sun Sep 20 19:17:33 2009 +0200
@@ -237,7 +237,7 @@
               val total = length (! workers);
               val active = count_active ();
             in
-              "SCHEDULE " ^ string_of_int (Time.toMilliseconds now) ^ ": " ^
+              "SCHEDULE " ^ Time.toString now ^ ": " ^
                 string_of_int ready ^ " ready, " ^
                 string_of_int pending ^ " pending, " ^
                 string_of_int running ^ " running; " ^