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 -r1.19 -r1.20
--- openacs-4/packages/assessment/tcl/as-qti-procs.tcl	18 Jan 2005 12:32:12 -0000	1.19
+++ openacs-4/packages/assessment/tcl/as-qti-procs.tcl	18 Jan 2005 14:17:45 -0000	1.20
@@ -8,6 +8,8 @@
 namespace eval as::qti {}
 
 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