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.48 -r1.49
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	1 Nov 2006 19:18:07 -0000	1.48
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	15 Dec 2006 00:02:00 -0000	1.49
@@ -1012,6 +1012,34 @@
 	append output(text) "\n\n[join $href_urls "\n"]"
     }
 
+    #---
+    # conversion like in ad_text_to_html
+    # 2006/09/12
+    set  myChars  {
+	� � � � � � � � � �
+	� � � � � � � � � �
+	� � � � � � � � � �
+	� � � � � � � � � �
+	� � � � � � � � � �
+	� � � � � � � � � �
+	� � � � �
+    }
+
+    set  myHTML  {
+	ª º À Á Â Ã Ä Å &Aelig; Ç 
+	È É Ê Ë Ì Í Î Ï Ð Ñ 
+	Ò Ó Ô Õ Ö Ø Ù Ú Û Ü 
+	Ý Þ ß à á â ã ä å æ
+	ç è é ê ë ì í î ï ð 
+	ñ ò ó ô õ ö ø ù ú û 
+	ü ý þ ÿ ¿
+    }
+
+    for  { set i 0 }   { $i  < [ llength  $myHTML ] }   { incr i }  {
+	set output(text) [ string map "[ lindex $myHTML $i ] [ lindex  $myChars  $i ]" $output(text) ]
+    }
+    #---
+
     return $output(text)
 }