tuned

--- a/src/HOL/Tools/SMT/smt_solver.ML	Tue Dec 07 14:54:31 2010 +0100
+++ b/src/HOL/Tools/SMT/smt_solver.ML	Tue Dec 07 15:01:37 2010 +0100
@@ -180,7 +180,7 @@
   let
     val args = C.solver_options_of ctxt @ options ctxt
     val comments = ("solver: " ^ name) ::
-      ("timeout: " ^ Time.toString (seconds (Config.get ctxt C.timeout))) ::
+      ("timeout: " ^ string_of_real (Config.get ctxt C.timeout)) ::
       "arguments:" :: args
   in
     irules