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 -N -r1.90.2.9 -r1.90.2.10
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	21 Jul 2020 14:06:40 -0000	1.90.2.9
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	1 Feb 2021 11:05:41 -0000	1.90.2.10
@@ -371,7 +371,7 @@
 
     @see ad_sanitize_filename
 } {
-    regsub -all {[<>:\"|/@\#%&+\\]} $string {_} string
+    regsub -all -- {[<>:\"|/@\#%&+\\]} $string {_} string
     return [string trim $string]
 }
 
@@ -724,16 +724,16 @@
 } {
     set cmd [parameter::get -parameter ArchiveCommand -default "tar cf - {in_file} | gzip > {out_file}"]
 
-    regsub -all {(\W)} $in_file {\\\1} in_file
-    regsub -all {\\/} $in_file {/} in_file
-    regsub -all {\\\.} $in_file {.} in_file
+    regsub -all -- {(\W)} $in_file {\\\1} in_file
+    regsub -all -- {\\/} $in_file {/} in_file
+    regsub -all -- {\\\.} $in_file {.} in_file
 
-    regsub -all {(\W)} $out_file {\\\1} out_file
-    regsub -all {\\/} $out_file {/} out_file
-    regsub -all {\\\.} $out_file {.} out_file
+    regsub -all -- {(\W)} $out_file {\\\1} out_file
+    regsub -all -- {\\/} $out_file {/} out_file
+    regsub -all -- {\\\.} $out_file {.} out_file
 
-    regsub -all {{in_file}} $cmd $in_file cmd
-    regsub -all {{out_file}} $cmd $out_file cmd
+    regsub -all -- {{in_file}} $cmd $in_file cmd
+    regsub -all -- {{out_file}} $cmd $out_file cmd
 
     return $cmd
 }