Index: openacs-4/packages/acs-api-browser/www/tcl-doc-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/tcl-doc-search.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-api-browser/www/tcl-doc-search.tcl	6 Sep 2002 21:49:54 -0000	1.3
+++ openacs-4/packages/acs-api-browser/www/tcl-doc-search.tcl	18 Sep 2002 11:55:43 -0000	1.4
@@ -23,11 +23,9 @@
     set search_for [string range $tcl_proc 0 $i]
     if { [regexp "<a href=\"(\[^>\]+)\">$search_for</a>" $tcl_docs_index_page match relative_url] } {
         ad_returnredirect "$tcl_docs_root$relative_url"
-        return
+        ad_script_abort
     } 
 }
 
 set title "Tcl API Procedure Search for: \"$tcl_proc\""
 set context [list "TCL API Search: $tcl_proc"]
-
-ad_return_template