Index: openacs-4/packages/xotcl-core/tcl/04-library-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/04-library-procs.tcl,v
diff -u -r1.6.2.1 -r1.6.2.2
--- openacs-4/packages/xotcl-core/tcl/04-library-procs.tcl	8 May 2019 14:22:01 -0000	1.6.2.1
+++ openacs-4/packages/xotcl-core/tcl/04-library-procs.tcl	9 Mar 2022 08:23:42 -0000	1.6.2.2
@@ -80,7 +80,7 @@
     #:log "--loaded = [lsort [nsv_array names [self]-loaded]]"
 
     if {![nsv_exists [self]-loaded $otherfile]} {
-      :log "--sourcing $otherfile"
+      :log "--sourcing first $otherfile"
       apm_source $otherfile
       nsv_set [self]-loaded $otherfile 1
     }
@@ -104,8 +104,10 @@
     #:log "--check nsv_exists $vn $dirname/$myfile [nsv_exists $vn $dirname/$myfile]"
     if {[nsv_exists $vn $dirname/$myfile]} {
       foreach file [nsv_get $vn $dirname/$myfile] {
-        :log "--sourcing dependent $file"
+        incr ::__source_dependent_level
+        ns_log notice "--sourcing dependent ($::__source_dependent_level) $myfile -> $file"
         apm_source $file
+        incr ::__source_dependent_level -1
       }
     }
   }