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.6 -r1.27.8.7
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	13 Sep 2013 07:58:15 -0000	1.27.8.6
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	28 Sep 2013 12:24:24 -0000	1.27.8.7
@@ -834,6 +834,8 @@
     return [$thread do $obj serialize]
   } elseif {[info proc $proc_name] ne ""} {
     return [info body $proc_name]
+  } elseif {[info proc ::nsf::procs::$proc_name] ne ""} {
+    return [info body ::nsf::procs::$proc_name]
   } else {
     return "No such Tcl-proc"
   }
Index: openacs-4/packages/acs-api-browser/www/tcl-proc-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/tcl-proc-view.tcl,v
diff -u -r1.6 -r1.6.8.1
--- openacs-4/packages/acs-api-browser/www/tcl-proc-view.tcl	7 Feb 2009 20:32:54 -0000	1.6
+++ openacs-4/packages/acs-api-browser/www/tcl-proc-view.tcl	28 Sep 2013 12:24:24 -0000	1.6.8.1
@@ -23,13 +23,9 @@
 
 set tcl_api_root ${tcl_api_host}${tcl_api_index}
 set tcl_api_index_page [util_memoize "ns_httpget $tcl_api_root"]
-
-ns_log notice index=$tcl_api_root
 set tcl_proc [lindex $tcl_proc 0]
 
-set len [string length $tcl_proc]
-
-for { set i [expr { $len-1 }] } { $i >= 0 } { incr i -1 } {
+for { set i [expr { [string length $tcl_proc] - 1 }] } { $i >= 0 } { incr i -1 } {
     set search_for [string range $tcl_proc 0 $i]
     if { [regexp "<a href= *\['\"\](\[^>\"'\]+)\[\"'\]\[^>\]*>$search_for</a>" $tcl_api_index_page match relative_url] } {
         if {[string match "/*" $relative_url]} {