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.49 -r1.50
--- openacs-4/packages/assessment/tcl/as-qti-procs.tcl	27 Apr 2015 15:28:19 -0000	1.49
+++ openacs-4/packages/assessment/tcl/as-qti-procs.tcl	7 Aug 2017 23:48:03 -0000	1.50
@@ -30,7 +30,7 @@
 	}
 
 	# Delete the temporary directory
-	file delete -force $tmpdirectory
+	file delete -force -- $tmpdirectory
     } else {
         set url_assessment [as::qti::register_xml -xml_file $tmp_dir -community_id $community_id]
     }
@@ -63,7 +63,7 @@
         }
 
         # Delete the temporary directory
-        file delete -force $tmpdirectory
+        file delete -force -- $tmpdirectory
     } else {
         set assessment_id [as::qti::register_xml_object_id -xml_file $tmp_dir -community_id $community_id -prop $prop]
     }
@@ -950,3 +950,9 @@
 	return [expr {$h*3600+$m*60+$s}]
     }
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: