Index: openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	17 Nov 2018 16:22:38 -0000	1.21
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	7 Dec 2018 08:43:54 -0000	1.22
@@ -90,7 +90,7 @@
       3 {lassign $proc_spec obj methodType method; set scope ""}
       4 {lassign $proc_spec scope obj methodType method}
       default {
-        ns_log notice "Unexpected format <$proc_spec> consists of [llength $proc_spec] parts"
+        ns_log notice "[self] debug_widget: Unexpected format <$proc_spec> consists of [llength $proc_spec] parts"
         return ""
       }
     }
@@ -101,7 +101,7 @@
     } elseif {$methodType eq "Class"} {
       return ""
     } else {
-      ns_log warning "unexpected method type <$methodType>"
+      ns_log warning "[self] debug_widget unexpected method type <$methodType>"
       set modifier ""
     }
     set isObject [:scope_eval $scope ::nsf::is object $obj]
@@ -524,7 +524,7 @@
 
   :public object method get_object_source {scope obj} {
     if {![nsf::is object $obj]} {
-      ns_log warning "get_object_source: argument passed as obj is not an object: $obj"
+      ns_log warning "[self] get_object_source: argument passed as obj is not an object: $obj"
       return ""
     }
     set init_block [:get_init_block $scope $obj]
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.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]} {