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.22 -r1.23
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	6 Aug 2002 15:38:37 -0000	1.22
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	6 Aug 2002 15:54:13 -0000	1.23
@@ -322,7 +322,7 @@
         remove unsafe file system characters. useful if you want to use $string
         as the name of an object to write to disk.
     } {
-        regsub -all {[<>:\"|/\\@#%&+]} $string {_} string
+        regsub -all {[<>:\"|/@#%&+\\]} $string {_} string
         return $string
     }