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.30 -r1.31
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	28 Oct 2024 17:19:10 -0000	1.30
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	28 Oct 2024 17:19:58 -0000	1.31
@@ -279,7 +279,7 @@
       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]} {        
+      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>"