Index: openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl,v
diff -u -r1.27.8.5 -r1.27.8.6
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	13 Sep 2013 07:05:07 -0000	1.27.8.5
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	13 Sep 2013 07:58:15 -0000	1.27.8.6
@@ -832,8 +832,10 @@
     }
   } elseif {[regexp {^([^ ]+)(Class|Object) (.*)$} $proc_name match thread kind obj]} {
     return [$thread do $obj serialize]
-  } else {
+  } elseif {[info proc $proc_name] ne ""} {
     return [info body $proc_name]
+  } else {
+    return "No such Tcl-proc"
   }
 }