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.21 -r1.22
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	6 Aug 2002 13:27:15 -0000	1.21
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	6 Aug 2002 15:38:37 -0000	1.22
@@ -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
     }