Index: openacs-4/packages/assessment/tcl/as-qti-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-qti-procs.tcl,v
diff -u -N -r1.34 -r1.35
--- openacs-4/packages/assessment/tcl/as-qti-procs.tcl	12 Apr 2005 11:26:25 -0000	1.34
+++ openacs-4/packages/assessment/tcl/as-qti-procs.tcl	26 Apr 2005 15:37:04 -0000	1.35
@@ -19,14 +19,9 @@
 ad_proc -public as::qti::parse_qti_xml { xmlfile } { Parse a XML QTI file } {
 	set as_assessments__assessment_id {}
 
-	# set utf-8 system encoding
-	encoding system utf-8
-	
 	# Parser
 	# XML => DOM document
-	set file_id [open $xmlfile r]
-	dom parse -channel $file_id document
-	close $file_id
+	dom parse [::tDOM::xmlReadFile $xmlfile] document
 	# DOM document => DOM root
 	$document documentElement root
 	# XPath v1.0