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.29 -r1.30
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	25 Oct 2024 12:19:44 -0000	1.29
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	28 Oct 2024 17:19:10 -0000	1.30
@@ -279,8 +279,8 @@
       if {$script eq "" && [info exists obj] && [nsv_get proc_source_file " Class $obj" 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 {$script eq "" && [info exists obj]} {        
+        set class [::nsf::directdispatch $obj ::nsf::methods::object::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>"
         }