Index: openacs-4/packages/lors/tcl/lors-imscp-blackboard5-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/lors-imscp-blackboard5-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/lors/tcl/lors-imscp-blackboard5-procs.tcl	9 May 2018 15:33:32 -0000	1.8
+++ openacs-4/packages/lors/tcl/lors-imscp-blackboard5-procs.tcl	15 Nov 2019 08:31:12 -0000	1.9
@@ -167,7 +167,7 @@
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
 
-    set docx [dom parse [::tDOM::xmlReadFile $file]]
+    set docx [dom parse [::tdom::xmlReadFile $file]]
     set usersnode [$docx documentElement]
 
     set userlist [list]
Index: openacs-4/packages/lors/tcl/lors-imscp-blackboard6-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/lors-imscp-blackboard6-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/lors/tcl/lors-imscp-blackboard6-procs.tcl	15 Nov 2019 08:30:06 -0000	1.14
+++ openacs-4/packages/lors/tcl/lors-imscp-blackboard6-procs.tcl	15 Nov 2019 08:31:12 -0000	1.15
@@ -205,7 +205,7 @@
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
     # open xml file
-    set doc [dom parse [::tDOM::xmlReadFile $file]]
+    set doc [dom parse [::tdom::xmlReadFile $file]]
     # coursetoc
     set coursetoc [$doc documentElement]
 
@@ -240,7 +240,7 @@
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
     # open xml file
-    set doc [dom parse [::tDOM::xmlReadFile $file]]
+    set doc [dom parse [::tdom::xmlReadFile $file]]
 
     # content
     set content [$doc documentElement]
@@ -369,7 +369,7 @@
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
     # open xml file
-    set doc [dom parse [::tDOM::xmlReadFile $file]]
+    set doc [dom parse [::tdom::xmlReadFile $file]]
     # content
     set announcement [$doc documentElement]
     set list_items  [list]
@@ -518,7 +518,7 @@
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
     # open xml file
-    set doc [dom parse [::tDOM::xmlReadFile $file]]
+    set doc [dom parse [::tdom::xmlReadFile $file]]
     # content
     set forum [$doc documentElement]
 
@@ -555,7 +555,7 @@
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
     # open manifest file with tDOM
-    set doc [dom parse [::tDOM::xmlReadFile $tmp_dir/$file]]
+    set doc [dom parse [::tdom::xmlReadFile $tmp_dir/$file]]
     # gets the manifest tree
     set manifest [$doc documentElement]
     # we add the xml namespace for dotLRN
@@ -570,7 +570,7 @@
     if {[empty_string_p $metadata]} {
 
         set filex res00001.dat
-        set docx [dom parse [::tDOM::xmlReadFile $tmp_dir/$filex]]
+        set docx [dom parse [::tdom::xmlReadFile $tmp_dir/$filex]]
         # gets BB's course info
         set course [$docx documentElement]
 
@@ -624,7 +624,7 @@
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
     # open xml file
-    set doc [dom parse [::tDOM::xmlReadFile $tmp_dir/$file]]
+    set doc [dom parse [::tdom::xmlReadFile $tmp_dir/$file]]
 
     # gets the manifest tree
     set manifest [$doc documentElement]
@@ -811,7 +811,7 @@
 } {
     ## Opens imsmanifest.xml
     # open manifest file with tDOM
-    set doc [dom parse [::tDOM::xmlReadFile $tmp_dir/$file]]
+    set doc [dom parse [::tdom::xmlReadFile $tmp_dir/$file]]
     # gets the manifest tree
     set manifest [$doc documentElement]
 
Index: openacs-4/packages/lors/tcl/lors-imsmd-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/lors-imsmd-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/lors/tcl/lors-imsmd-procs.tcl	9 May 2018 15:33:32 -0000	1.15
+++ openacs-4/packages/lors/tcl/lors-imsmd-procs.tcl	15 Nov 2019 08:31:12 -0000	1.16
@@ -154,7 +154,7 @@
                 set type "XML"
                 set filename [ns_urldecode \
                                   [[$tree child all adlcp:location] text]]
-                set lom [::tDOM::xmlReadFile $dir/$filename]
+                set lom [::tdom::xmlReadFile $dir/$filename]
                 set doc [dom parse $lom]
                 set prefix [[$doc documentElement] prefix]
                 $doc delete
Index: openacs-4/packages/lorsm/tcl/lorsm-import-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/tcl/lorsm-import-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/lorsm/tcl/lorsm-import-procs.tcl	15 Nov 2019 08:39:00 -0000	1.11
+++ openacs-4/packages/lorsm/tcl/lorsm-import-procs.tcl	15 Nov 2019 08:39:39 -0000	1.12
@@ -133,7 +133,7 @@
         ## Opens imsmanifest.xml
 
         # open manifest file with tDOM
-        dom parse [::tDOM::xmlReadFile $manifest] doc
+        dom parse [::tdom::xmlReadFile $manifest] doc
         # gets the manifest tree
         set manifest [$doc documentElement]
 
@@ -418,7 +418,7 @@
             ## Opens imsmanifest.xml
 
             # open manifest file with tDOM
-            dom parse [::tDOM::xmlReadFile $tmp_dir/imsmanifest.xml] doc
+            dom parse [::tdom::xmlReadFile $tmp_dir/imsmanifest.xml] doc
             # gets the manifest tree
             set manifest [$doc documentElement]
 
Index: openacs-4/packages/lorsm/www/admin/course-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/course-add-2.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/lorsm/www/admin/course-add-2.tcl	2 Nov 2010 11:06:58 -0000	1.5
+++ openacs-4/packages/lorsm/www/admin/course-add-2.tcl	15 Nov 2019 08:39:39 -0000	1.6
@@ -180,7 +180,7 @@
     ## Opens imsmanifest.xml
 
     # open manifest file with tDOM
-    dom parse [::tDOM::xmlReadFile $manifest] doc
+    dom parse [::tdom::xmlReadFile $manifest] doc
     # gets the manifest tree
     set manifest [$doc documentElement]
 
Index: openacs-4/packages/lorsm/www/admin/course-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/course-add-3.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/lorsm/www/admin/course-add-3.tcl	15 Nov 2019 08:39:01 -0000	1.18
+++ openacs-4/packages/lorsm/www/admin/course-add-3.tcl	15 Nov 2019 08:39:39 -0000	1.19
@@ -187,7 +187,7 @@
         ## Opens imsmanifest.xml
 
         # open manifest file with tDOM
-        dom parse [::tDOM::xmlReadFile $tmp_dir/imsmanifest.xml] doc
+        dom parse [::tdom::xmlReadFile $tmp_dir/imsmanifest.xml] doc
         # gets the manifest tree
         set manifest [$doc documentElement]