Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -N -r1.189.2.88 -r1.189.2.89
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	23 May 2021 17:57:07 -0000	1.189.2.88
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	7 Jun 2021 13:55:20 -0000	1.189.2.89
@@ -2497,14 +2497,6 @@
     regsub -all -- {[\u0000-\u001f|/|?|<|>|\\:*|\"|;|\.]+} $replace_with "" replace_with
     if {$replace_with eq ""} {error "-replace_with must be a safe filesystem character"}
 
-    # dots other than in file extension are dangerous. Put inside two
-    # '#' character will be seen as message keys and file-storage is
-    # currently set to interpret them.
-    set str_ext [ad_file extension $str]
-    set str_noext [string range $str 0 end-[string length $str_ext]]
-    regsub -all -- {\.} $str_noext $replace_with str_noext
-    set str ${str_noext}${str_ext}
-
     #
     # Remove Unix reserved filenames (. and ..)
     # reserved names in windows