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.1.2.1
--- 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	6 Oct 2013 13:21:40 -0000	1.1.2.1
@@ -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 {
Index: openacs-4/packages/ajaxhelper/www/doc/acs-integration-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ajaxhelper/www/doc/acs-integration-procs.tcl,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/ajaxhelper/www/doc/acs-integration-procs.tcl	12 Apr 2013 16:12:57 -0000	1.2
+++ openacs-4/packages/ajaxhelper/www/doc/acs-integration-procs.tcl	6 Oct 2013 13:21:40 -0000	1.2.2.1
@@ -88,7 +88,7 @@
 ad_proc -public get_server_root {} {
     Get the server root directory (supposing we run under ACS)
 } {
-    file dir $::acs::tcllib
+    file dirname $::acs::tcllib
 }