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.4 -r1.5
--- openacs-4/packages/acs-api-browser/www/tcl-doc-search.tcl	18 Sep 2002 11:55:43 -0000	1.4
+++ openacs-4/packages/acs-api-browser/www/tcl-doc-search.tcl	27 Oct 2003 12:23:23 -0000	1.5
@@ -9,11 +9,16 @@
     tcl_proc:onevalue
 }
 
-set tcl_docs_root "http://dev.scriptics.com/man/tcl[info tclversion]/TclCmd/"
+set tcl_docs_root "http://tcl.tk/man/tcl[info tclversion]/TclCmd/"
 
 set tcl_docs_url "${tcl_docs_root}contents.htm"
 
-set tcl_docs_index_page [util_memoize "ns_httpget $tcl_docs_url"]
+with_catch errmsg {
+    set tcl_docs_index_page [util_memoize "ns_httpget $tcl_docs_url"]
+} {
+    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]