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.186 -r1.187
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	10 Dec 2018 14:47:25 -0000	1.186
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	21 Jan 2019 18:19:35 -0000	1.187
@@ -2411,11 +2411,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