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.4 -r1.67.2.5
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	9 Oct 2015 15:35:05 -0000	1.67.2.4
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	9 Oct 2015 15:40:21 -0000	1.67.2.5
@@ -1104,12 +1104,12 @@
         ü ý þ ÿ ¿
     }
 
-    for  { set i 0 }   { $i  < [ llength  $myHTML ] }   { incr i }  {
-        set output(text) [ string map "[ lindex $myHTML $i ] [ lindex  $myChars  $i ]" $output(text) ]
+    set map {}
+    foreach ch $mychars entity $myHTML {
+        lappend map $entity $ch
     }
-    #---
 
-    return $output(text)
+    return [string map $map $output(text)]
 }
 
 ad_proc -private ad_html_to_text_put_newline { output_var } {