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.140.2.53 -r1.140.2.54
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	10 Oct 2016 08:43:05 -0000	1.140.2.53
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	14 Oct 2016 18:58:53 -0000	1.140.2.54
@@ -3254,10 +3254,10 @@
 
     # Save some german and french characters from removal by replacing
     # them with their ascii counterparts.
-    set text [string map { \x00e4 ae \x00f6 oe \x00fc ue \x00df ss \x00f8 o \x00e0 a \x00e1 a \x00e8 e \x00e9 e } $text]
+    set text [string map { \xe4 ae \xf6 oe \xfc ue \xdf ss \xf8 o \xe0 a \xe1 a \xe8 e \xe9 e } $text]
 
     # here's the Danish ones (hm. the o-slash conflicts with the definition above, which just says 'o')
-    set text [string map { \x00e6 ae \x00f8 oe \x00e5 aa \x00C6 Ae \x00d8 Oe \x00c5 Aa } $text]
+    set text [string map { \xe6 ae \xf8 oe \xe5 aa \xC6 Ae \xd8 Oe \xc5 Aa } $text]
 
     # substitute all non-word characters
     regsub -all {([^a-z0-9])+} $text $replacement text