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 -N -r1.4 -r1.5
--- openacs-4/packages/lors/tcl/lors-imscp-blackboard5-procs.tcl	17 May 2005 16:35:11 -0000	1.4
+++ openacs-4/packages/lors/tcl/lors-imscp-blackboard5-procs.tcl	18 May 2005 17:13:55 -0000	1.5
@@ -165,7 +165,7 @@
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
 
-    set docx [dom parse [read [open $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 -N -r1.4 -r1.5
--- openacs-4/packages/lors/tcl/lors-imscp-blackboard6-procs.tcl	17 May 2005 16:35:11 -0000	1.4
+++ openacs-4/packages/lors/tcl/lors-imscp-blackboard6-procs.tcl	18 May 2005 17:13:55 -0000	1.5
@@ -207,12 +207,8 @@
     @option file filename
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
-    
-    # set utf-8 system encoding
-    encoding system utf-8
-
     # open xml file
-    set doc [dom parse [read [open $file]]]
+    set doc [dom parse [::tDOM::xmlReadFile $file]]
     # coursetoc
     set coursetoc [$doc documentElement]
 
@@ -247,12 +243,8 @@
     @option file filename
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
-
-    # set utf-8 system encoding
-    encoding system utf-8
-
     # open xml file
-    set doc [dom parse [read [open $file]]]
+    set doc [dom parse [::tDOM::xmlReadFile $file]]
     # content
     set content [$doc documentElement]
 
@@ -328,10 +320,6 @@
     @option filename directory and filename where we are putting the file
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
-
-    # set utf-8 system encoding
-    encoding system utf-8
-
     # get directory info
     set dirname [file dirname $filename]
 
@@ -389,12 +377,8 @@
     @option file filename
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
-
-    # set utf-8 system encoding
-    encoding system utf-8
-
     # open xml file
-    set doc [dom parse [read [open $file]]]
+    set doc [dom parse [::tDOM::xmlReadFile $file]]
     # content
     set announcement [$doc documentElement]
 
@@ -552,12 +536,8 @@
     @option file filename
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
-
-    # set utf-8 system encoding
-    encoding system utf-8
-
     # open xml file
-    set doc [dom parse [read [open $file]]]
+    set doc [dom parse [::tDOM::xmlReadFile $file]]
     # content
     set forum [$doc documentElement]
 
@@ -594,11 +574,8 @@
     @option file filename
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
-    # set utf-8 system encoding
-    encoding system utf-8
-
     # open manifest file with tDOM
-    set doc [dom parse [read [open $tmp_dir/$file]]]
+    set docx [dom parse [::tDOM::xmlReadFile $tmp_dir/$filex]]
     # gets the manifest tree
     set manifest [$doc documentElement]
     # we add the xml namespace for dotLRN
@@ -613,7 +590,7 @@
     if {[empty_string_p $metadata]} {
 	
 	set filex res00001.dat
-	set docx [dom parse [read [open $tmp_dir/$filex]]]
+	set docx [dom parse [::tDOM::xmlReadFile $tmp_dir/$filex]]
 	# gets BB's course info
 	set course [$docx documentElement]
 	
@@ -669,18 +646,8 @@
     @option file filename
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
-
-    # set utf-8 system encoding
-    encoding system utf-8
-
-    # search for manifest file
-    set file $file
-
-    # set utf-8 system encoding
-    encoding system utf-8
-
     # open xml file
-    set doc [dom parse [read [open $tmp_dir/$file]]]
+    set doc [dom parse [::tDOM::xmlReadFile $tmp_dir/$file]]
 
     # gets the manifest tree
     set manifest [$doc documentElement]
@@ -898,12 +865,8 @@
     @author Ernie Ghiglione (ErnieG@mm.st)
 } {
     ## Opens imsmanifest.xml
-
-    # set utf-8 system encoding
-    encoding system utf-8
-    
     # open manifest file with tDOM
-    set doc [dom parse [read [open $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 -N -r1.6 -r1.7
--- openacs-4/packages/lors/tcl/lors-imsmd-procs.tcl	17 May 2005 16:35:11 -0000	1.6
+++ openacs-4/packages/lors/tcl/lors-imsmd-procs.tcl	18 May 2005 17:13:55 -0000	1.7
@@ -140,7 +140,8 @@
                 set prefix [[$tree child all imsmd:record] prefix]
                 set lom [$tree child all $var_lom]
             } elseif { ![empty_string_p [$tree child all adlcp:location]] } {
-                set lom [[dom parse [read [open $dir/[[$tree child all adlcp:location] text]]]] documentElement]
+		dom parse [::tDOM::xmlReadFile $dir/[[$tree child all adlcp:location] text]] doc
+		set lom [$doc documentElement]
                 set prefix [$lom prefix]
             } else {
                 set lom 0