Index: openacs.org-dev/packages/acs-api-browser/www/tcl-doc-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-api-browser/www/tcl-doc-search.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/acs-api-browser/www/tcl-doc-search.tcl	9 Jul 2002 17:34:56 -0000	1.1.1.1
+++ openacs.org-dev/packages/acs-api-browser/www/tcl-doc-search.tcl	8 Oct 2002 15:46:41 -0000	1.1.1.2
@@ -5,7 +5,7 @@
     tcl_proc
 } -properties {
     title:onevalue
-    context_bar:onevalue
+    context:onevalue
     tcl_proc:onevalue
 }
 
@@ -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_bar [ad_context_bar "TCL API Search: $tcl_proc"]
-
-ad_return_template
+set context [list "TCL API Search: $tcl_proc"]