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.5 -r1.6
--- openacs-4/packages/assessment/tcl/as-qti-procs.tcl	27 Oct 2004 13:53:49 -0000	1.5
+++ openacs-4/packages/assessment/tcl/as-qti-procs.tcl	28 Oct 2004 14:27:16 -0000	1.6
@@ -82,7 +82,7 @@
 			as::qti::parse_item $questestinterop 0
 		}
 	}
-	return 1
+	return $as_assessments__assessment_id
 }
 
 ad_proc -private as::qti::parse_item {qtiNode section_id basepath} { Parse items from a XML QTI file } {