Index: openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl	27 Oct 2014 16:41:32 -0000	1.5
+++ openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl	7 Aug 2017 23:48:11 -0000	1.6
@@ -26,7 +26,7 @@
 ad_proc file_storage:::twt::delete_file { file_name }  {
 
     # Delete a file name
-    exec rm -rf $file_name
+    file delete -force -- $file_name
 }
 
 ad_proc file_storage::twt::create_new_folder { folder_name folder_description }  {
@@ -445,3 +445,9 @@
     return $response
 }
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: