Index: openacs-4/packages/file-storage/www/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/delete.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/file-storage/www/delete.tcl	7 Aug 2017 23:48:11 -0000	1.9
+++ openacs-4/packages/file-storage/www/delete.tcl	1 Oct 2017 12:09:46 -0000	1.10
@@ -59,7 +59,7 @@
     db_transaction {
         template::multirow foreach delete_list {
             if {$delete_p} {
-                switch $type {
+                switch -- $type {
                     folder {
                         fs::delete_folder \
                             -folder_id $fs_object_id \