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.3 -r1.4
--- openacs-4/packages/xotcl-core/tcl/04-library-procs.tcl	18 Sep 2009 12:00:38 -0000	1.3
+++ openacs-4/packages/xotcl-core/tcl/04-library-procs.tcl	7 Aug 2017 23:48:30 -0000	1.4
@@ -18,7 +18,7 @@
 #
 # Load a required file:
 #
-#   Source a file, which is requred by the current file
+#   Source a file, which is required by the current file
 #   Filename is without path and .tcl
 #
 #     ::xo::library require filename
@@ -82,6 +82,7 @@
     if {![nsv_exists [self]-loaded $otherfile]} {
       my log "--sourcing $otherfile"
       apm_source $otherfile
+      nsv_set [self]-loaded $otherfile 1
     }
   }
 
@@ -103,11 +104,15 @@
     #my 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] {
-        #my log "--sourcing dependent $dirname/$file"
-        #apm_source $dirname/$file
-        #my log "--sourcing dependent $file"
+        my log "--sourcing dependent $file"
         apm_source $file
       }
     }
   }
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End: