1 files changed, 2 insertions, 1 deletions
diff --git a/bench.tcl b/bench.tcl
index 37a905a..edd1bc0 100644
--- a/bench.tcl
+++ b/bench.tcl
@@ -2,7 +2,8 @@ proc bench {title script} {
     while {[string length $title] < 20} {
 	append title " "
     }
-    puts "$title - [time $script]"
+    catch {time $script} res
+    puts "$title - $res"
 }
 
 ### BUSY LOOP ##################################################################