Index: openacs-4/packages/acs-api-browser/www/proc-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-view.tcl,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/acs-api-browser/www/proc-view.tcl	6 Sep 2002 21:49:54 -0000	1.2
+++ openacs-4/packages/acs-api-browser/www/proc-view.tcl	6 Oct 2002 05:52:39 -0000	1.2.2.1
@@ -26,8 +26,18 @@
     set source_p $default_source_p
 }
 
+# Try and be helpful about the procedure.
 if { ![nsv_exists api_proc_doc $proc] } {
-    set error_msg "This proc is not defined with ad_proc or proc_doc"
+    if {![empty_string_p [namespace eval :: [list info procs $proc]]]} { 
+        set error_msg "<p>This procedure is defined in the server but not documented via ad_proc or proc_doc and may be intended as a private interface.</p><p>The procedure is defined as: <pre>
+proc $proc {[info args $proc]} {
+[ad_quotehtml [info body $proc]]
+}</pre></p>"
+    } elseif {![empty_string_p [namespace eval :: [list info commands $proc]]]} { 
+        set error_msg "<p>The procedure <b>$proc</b> is an available command on the server and might be found in the <a href=\"http://dev.scriptics.com/man/tcl8.3/TclCmd/contents.htm\">TCL</a> or <a href=\"http://www.aolserver.com/docs/devel/tcl/api/\">AOLServer</a> documentation or in documentation for a loadable module (like ns_cache for example).</p>"
+    } else { 
+        set error_msg "<p>The procedure <b>$proc</b> is not defined in the server.</p>"
+    }
 } else {
 
     if { $source_p } {