1.1 --- a/src/Pure/Concurrent/future.ML	Thu Aug 27 11:54:17 2009 +0200
     1.2 +++ b/src/Pure/Concurrent/future.ML	Thu Aug 27 17:00:03 2009 +0200
     1.3 @@ -237,7 +237,7 @@
     1.4                val total = length (! workers);
     1.5                val active = count_active ();
     1.6              in
     1.7 -              "SCHEDULE: " ^
     1.8 +              "SCHEDULE " ^ string_of_int (Time.toMilliseconds now) ^ ": " ^
     1.9                  string_of_int ready ^ " ready, " ^
    1.10                  string_of_int pending ^ " pending, " ^
    1.11                  string_of_int running ^ " running; " ^