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.13.4.1 -r1.13.4.2
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	25 Mar 2004 02:41:51 -0000	1.13.4.1
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	25 Mar 2004 03:25:14 -0000	1.13.4.2
@@ -812,8 +812,10 @@
         } elseif {[string index $data 0] == " "} {
             return [length_spaces $data]
         }
-        regexp -indices { } $data match
-        return [lindex $match 1]
+        if { [regexp -indices { } $data match] } {
+            return [lindex $match 1]
+        }
+        return 0
     }
 
     # Calculate how much text we should ignore