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.26 -r1.27
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	22 Oct 2024 10:26:54 -0000	1.26
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	23 Oct 2024 11:47:00 -0000	1.27
@@ -253,16 +253,22 @@
     # in" in the API browser. Define different sources available in
     # different situatons.
     #
-    # @param  obj class name for identifying the source file name
+    # @param  obj class name for identifying the source filename
     # @param scope either empty or thread name
     # @return path starting with the "packages" directory
     #
     set script [info script]
     if {$script eq "" || [file tail $script] eq "procdoc-init.tcl"} {
       set script ""
       if {$script eq "" && [info exists obj] && [nsv_get proc_source_file " Class $obj" script]} {
-        #ns_log notice "INIT script_name from proc_source_file => <$script>"
+        #ns_log notice "INIT script_name of $obj from proc_source_file => <$script>"
       }
+      if {$script eq "" && [info exists obj]} {
+        set class [$obj info class]
+        if {[nsv_get proc_source_file " Class $class" script]} {
+          #ns_log notice "INIT script_name of $obj via $class from proc_source_file => <$script>"
+        }
+      }
       if {$script eq "" && [info exists ::xotcl::currentScript]} {
         set script $::xotcl::currentScript
       }
@@ -310,7 +316,7 @@
 
   :public object method proc_index {scope obj instproc proc_name} {
     #
-    # Return a canonical index string for the specifed method
+    # Return a canonical index string for the specified method
     #
     if {$scope eq ""} {
       return [list [string trimleft $obj :] $instproc $proc_name]