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 -r1.188 -r1.189 --- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 31 Jan 2019 17:02:27 -0000 1.188 +++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 31 Jan 2019 17:07:58 -0000 1.189 @@ -2464,11 +2464,11 @@ # # Remove Control characters (0x00–0x1f and 0x80–0x9f) - # and reserved characters (/, ?, <, >, \, :, *, |, `, and ") - regsub -all {[\u0000-\u001f|/|?|<|>|\\:*|\"|`]+} $str "" str + # and reserved characters (/, ?, <, >, \, :, *, | and ") + regsub -all {[\u0000-\u001f|/|?|<|>|\\:*|\"]+} $str "" str # allow a custom replacement char, that must be safe. - regsub -all {[\u0000-\u001f|/|?|<|>|\\:*|\"|`|\.]+} $replace_with "" replace_with + 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