bench.tcl: remove expr with multiple arguments

For compatibility when Jim is build without --compat

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 1 insertions, 1 deletions

diff --git a/bench.tcl b/bench.tcl
index f39bef1..bb18af8 100644
--- a/bench.tcl
+++ b/bench.tcl
@@ -11,7 +11,7 @@ proc bench {title script} {
         if {!$batchmode} {puts "$Title - This test can't run on this interpreter ($res)"}
         lappend benchmarks $title F
     } else {
-        set t [expr [lindex $res 0] / 1000]
+        set t [expr {[lindex $res 0] / 1000}]
         lappend benchmarks $title $t
         set ts "          $t"
         set ts [string range $ts [expr {[string length $ts]-10}] end]