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.6 -r1.7
--- openacs-4/packages/acs-api-browser/www/tcl-doc-search.tcl	16 Jul 2010 11:45:41 -0000	1.6
+++ openacs-4/packages/acs-api-browser/www/tcl-doc-search.tcl	27 Oct 2014 16:39:00 -0000	1.7
@@ -10,18 +10,17 @@
 }
 
 set tcl_docs_root "http://tcl.tk/man/tcl[info tclversion]/TclCmd/"
-
 set tcl_docs_url "${tcl_docs_root}contents.htm"
 
 with_catch errmsg {
-    set tcl_docs_index_page [util_memoize "ns_httpget $tcl_docs_url"]
+    set tcl_docs_index_result [util_memoize [list util::http::get -url $tcl_docs_url]]
+    set tcl_docs_index_page [dict get $tcl_docs_index_result page]
 } {
     ad_return_error "Cannot Connect" "We're sorry, but we're having problems connecting to the server containing the Tcl documentation: $tcl_docs_url"
     ad_script_abort
 }
 
 set tcl_proc [lindex $tcl_proc 0] 
-
 set len [string length $tcl_proc]
 
 for { set i [expr { $len-1 }] } { $i >= 0 } { incr i -1 } {
@@ -33,4 +32,4 @@
 }
 
 set title "Tcl API Procedure Search for: \"$tcl_proc\""
-set context [list "TCL API Search: $tcl_proc"]
+set context [list "Tcl API Search: $tcl_proc"]