Index: openacs-4/packages/search/tcl/syndicate-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/tcl/syndicate-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/search/tcl/syndicate-procs.tcl	10 Jan 2007 21:22:14 -0000	1.2
+++ openacs-4/packages/search/tcl/syndicate-procs.tcl	2 Oct 2008 05:05:11 -0000	1.3
@@ -42,14 +42,15 @@
 
         set published [lc_time_fmt $syn(pubDate) "%a, %d %b %Y %H:%M:%S GMT"]
 
+   set xmlMap [list & "&amp;" < "&lt;" > "&gt;" \" "&quot;" ' "&apos;"]
         set rss_xml_frag " <item>
-  <title>$d(title)</title>
-  <link>$url</link>
-  <guid isPermaLink=\"true\">$syn(guid)</guid>
-  <description>$syn(description)</description>
-  <author>$syn(author)</author>
+  <title>[string map $xmlMap $d(title)]</title>
+  <link>[string map $xmlMap $url]</link>
+  <guid isPermaLink=\"true\">[string map $xmlMap $syn(guid)]</guid>
+  <description>[string map $xmlMap $syn(description)]</description>
+  <author>[string map $xmlMap $syn(author)]</author>
   <content:encoded><!\[CDATA\[$body]]></content:encoded>
-  <category>$syn(category)</category>
+  <category>[string map $xmlMap $syn(category)]</category>
   <pubDate>$published</pubDate>
  </item>"