Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.70 -r1.71
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	7 Aug 2017 23:48:11 -0000	1.70
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	1 Oct 2017 12:09:46 -0000	1.71
@@ -513,7 +513,7 @@
 
     db_1row select_object_info {}
     
-    switch $type {
+    switch -- $type {
 	folder {
 	    set result [publish_folder_to_file_system -folder_id $object_id -path $path -folder_name $name -user_id $user_id]
 	} 
@@ -650,7 +650,7 @@
                        -tolower \
                        $file_name]
 
-    switch $storage_type {
+    switch -- $storage_type {
 	lob {
 
 	    # FIXME: db_blob_get_file is failing when i use bind variables