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 -N -r1.30.2.26 -r1.30.2.27
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	15 Apr 2017 09:56:20 -0000	1.30.2.26
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	15 Apr 2017 10:12:03 -0000	1.30.2.27
@@ -1335,7 +1335,7 @@
                                     
                                     set start [string range $line 0 end-1]
                                     set elements 3
-                                    for {set idx 1} {[string range [lindex $start $idx] 0 0] eq "-"} {incr idx} {
+                                    for {set idx 1} {[string index [lindex $start $idx] 0] eq "-"} {incr idx} {
                                         incr elements
                                     }