Index: openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl,v
diff -u -r1.27.8.1 -r1.27.8.2
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	5 Sep 2013 11:50:59 -0000	1.27.8.1
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	5 Sep 2013 18:01:11 -0000	1.27.8.2
@@ -1031,7 +1031,7 @@
         }
 
         "\$" {
-            if {$in_comment || ([string index $data [expr {$i + 1}]] == " ")} {
+            if {$in_comment || ([string index $data $i+1] eq " ")} {
                 append html "\$"
             } else {
                 set varl [length_var [string range $data $i end]]
@@ -1054,7 +1054,7 @@
         }
 
         "\#" {
-            set prevchar [string index $data [expr {$i-1}]]
+            set prevchar [string index $data $i-1]
             if {$proc_ok && !$in_comment && [regexp {[\s;]} $prevchar]} {
                 set in_comment 1
                 set proc_ok 0
@@ -1147,7 +1147,7 @@
                 # Hack for nasty regexp stuff
                 if {"regexp" eq $proc_name || "regsub" eq $proc_name} {
                     set regexpl [length_regexp [string range $data $i end]]
-                    append html [string range $data [expr {$i+1}] [expr {$i + $regexpl}]]
+                    append html [string range $data $i+1 $i+$regexpl]
                     incr i $regexpl
                 }
             } else {