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 -r1.13.4.1
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	7 Nov 2003 17:43:33 -0000	1.13
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	25 Mar 2004 02:41:51 -0000	1.13.4.1
@@ -999,7 +999,7 @@
                 incr i $procl
 
                 # Hack for nasty regexp stuff
-                if {[string match $proc_name "regexp"] || [string match $proc_name "regsub"]} {
+                if {[string match "regexp" $proc_name] || [string match "regsub" $proc_name]} {
                     set regexpl [length_regexp [string range $data $i end]]
                     append html [string range $data [expr $i+1] [expr $i + $regexpl]]
                     incr i $regexpl