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