Index: openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl,v
diff -u -r1.67.2.5 -r1.67.2.6
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	9 Oct 2015 15:40:21 -0000	1.67.2.5
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	9 Oct 2015 15:46:53 -0000	1.67.2.6
@@ -101,7 +101,7 @@
         }
 
         set map {}
-        foreach ch $mychars entity $myHTML {
+        foreach ch $myChars entity $myHTML {
             lappend map $ch $entity
         }
         set text [string map $map $text]
@@ -1105,7 +1105,7 @@
     }
 
     set map {}
-    foreach ch $mychars entity $myHTML {
+    foreach ch $myChars entity $myHTML {
         lappend map $entity $ch
     }