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