Index: openacs-4/packages/assessment/tcl/as-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-callback-procs.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/assessment/tcl/as-callback-procs.tcl	16 Apr 2009 11:33:36 -0000	1.8
+++ openacs-4/packages/assessment/tcl/as-callback-procs.tcl	27 Oct 2014 16:40:57 -0000	1.9
@@ -20,7 +20,7 @@
 } {
 	if {$res_type == "imsqti_xmlv1p0" || $res_type == "imsqti_xmlv1p1" || $res_type =="imsqti_item_xmlv2p0"} {
             set extension [string tolower [file extension $tmp_dir/$res_href]]
-            if {$extension == ".xml"} {
+            if {$extension eq ".xml"} {
                 return [as::qti::register_xml_object_id \
                             -xml_file $tmp_dir/$res_href \
                             -community_id $community_id \