Index: openacs-4/packages/s5/tcl/s5-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/s5/tcl/s5-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/s5/tcl/s5-procs.tcl	5 May 2008 12:30:29 -0000	1.12
+++ openacs-4/packages/s5/tcl/s5-procs.tcl	16 May 2008 17:49:39 -0000	1.13
@@ -150,7 +150,7 @@
       $p destroy_on_cleanup
       #$p set render_adp 0
       set content [$p get_content]
-      set content [string map [list "\{\{" "\\\{\{"] $content]
+      #set content [string map [list "\{\{" "\\\{\{"] $content]
       set evenodd [expr {[incr count]%2 ? "even" : "odd"}]
       append output "<div class='slide $evenodd'>" \
           <h1> $title </h1> \n \
@@ -212,7 +212,7 @@
       $p set unresolved_references 0
       #$p set render_adp 0
       set content [$p get_content]
-      set content [string map [list "\{\{" "\\\{\{" "\\@" "\\\\@"] $content]
+      set content [string map [list "\\@" "\\\\@"] $content]
       #my log content=$content
       regexp {^.*:([^:]+)$} $name _ anchor
       append output "<h$level class='book'>" \