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.27.8.8 -r1.27.8.9
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	2 Oct 2013 07:55:04 -0000	1.27.8.8
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	2 Oct 2013 08:56:25 -0000	1.27.8.9
@@ -1093,9 +1093,7 @@
             if {[regexp {^\}(\s*)(else|elseif)(\s*\{)} [string range $data $i end] match pre els post]} {
                 append html "${pre}$HTML(procs)${els}$HTML(/procs)${post}"
                 set proc_ok 1
-                incr i [expr [string length $pre] + \
-                             [string length $els] + \
-                             [string length $post]]
+                incr i [expr {[string length $pre] + [string length $els] + [string length $post]}]
             }
         }