Index: openacs-4/packages/ajaxhelper/tcl/json-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ajaxhelper/tcl/json-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/ajaxhelper/tcl/json-procs.tcl	8 Sep 2007 14:21:22 -0000	1.1
+++ openacs-4/packages/ajaxhelper/tcl/json-procs.tcl	27 Oct 2014 16:40:53 -0000	1.2
@@ -195,7 +195,7 @@
         # but it may be 0.xxx
         string is double -failindex last $txt
         if {$last > 0} {
-        set num [string range $txt 0 [expr {$last - 1}]]
+        set num [string range $txt 0 $last-1]
         set txt [string range $txt $last end]
         switch -- $state {
             TOP {