1 files changed, 8 insertions, 1 deletions

diff --git a/bench.tcl b/bench.tcl
index b0f6457..1c1f128 100644
--- a/bench.tcl
+++ b/bench.tcl
@@ -300,6 +300,13 @@ bench {dynamic code (list)} {dyncode_list}
 bench {PI digits} {pi_digits}
 bench {expand} {expand}
 
+proc istcl {} {
+    return [expr {![catch {info tclversion}]}]
+}
+
 if {$batchmode} {
-    puts [list [info patchlevel] $benchmarks]
+    if {[catch {info patchlevel} ver]} {
+        set ver Jim[info version]
+    }
+    puts [list $ver $benchmarks]
 }
\ No newline at end of file