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.72.2.45 -r1.72.2.46
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	29 Aug 2023 14:10:12 -0000	1.72.2.45
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	22 May 2024 11:18:04 -0000	1.72.2.46
@@ -1612,7 +1612,11 @@
                 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
             }
-            incr i [length_exp [string range $data $i end]]
+            set expr_length [length_exp [string range $data $i end]]
+            if {$expr_length == 0} {
+                break
+            }            
+            incr i $expr_length
             set curchar [string index $data $i]
         }
         return [expr {$i - 1}]