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 -r1.27.8.1
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	7 Feb 2009 20:32:54 -0000	1.27
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	5 Sep 2013 11:50:59 -0000	1.27.8.1
@@ -951,7 +951,7 @@
         while {$curchar != "\$" && $curchar != "\[" &&
                ($curchar ne "\{" || !$found_regexp)} {
             if {$curchar eq "\{"} {set found_regexp 1}
-            if {[string match "-start" [string range $data $i [expr {$i+5}]]]} {
+            if {[string range $data $i $i+5] eq "-start"} {
                 incr i [length_exp [string range $data $i end]] ;# -start
                 incr i [length_exp [string range $data $i end]] ;# spaces
                 incr i [length_exp [string range $data $i end]] ;# expression - it could be a var