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.14 -r1.15
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	17 Mar 2004 03:38:53 -0000	1.14
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	25 Mar 2004 02:24:00 -0000	1.15
@@ -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