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 -N -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]