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 -N -r1.71 -r1.72
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	21 Nov 2018 07:53:14 -0000	1.71
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	7 Dec 2018 08:47:03 -0000	1.72
@@ -800,7 +800,7 @@
         }
     } else {
         nsv_set api_proc_doc $proc_name [list $property $value]
-        ns_log warning "no proc_doc available for $proc_name"
+        ns_log warning "api_add_to_proc_doc: no proc_doc available for $proc_name"
     }
 }
 
@@ -836,7 +836,7 @@
             #ns_log notice "api_called_proc_names <$proc_name> got body <$body>"
 
         } on error {errorMsg} {
-            ns_log warning "cannot obtain body of '$proc_name' via ::apidoc::tcl_to_html: $errorMsg"
+            ns_log warning "api_called_proc_names: cannot obtain body of '$proc_name' via ::apidoc::tcl_to_html: $errorMsg"
             return ""
         }
     }
@@ -1103,7 +1103,7 @@
         try {
             close $f
         } on error {errorMsg} {
-            ns_log warning "dot returned $errorMsg"
+            ns_log warning "api_inline_svg_from_dot: dot returned $errorMsg"
         } on ok {result} {
             set f [open $tmpfile]; set svg [read $f]; close $f
 
@@ -1174,7 +1174,7 @@
         && [regexp {^(.*) (inst)?proc (.*)$} $proc_name match obj prefix method]} {
         if {[regexp {^(.*) (.*)$} $obj match scope obj]} {
             if {[::xo::api scope_eval $scope ::nsf::is object $obj]} {
-                [::xo::api get_method_source $scope $obj $prefix $method]
+                return [::xo::api get_method_source $scope $obj $prefix $method]
             }
         } else {
             if {[::nsf::is object $obj]} {