Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	14 Feb 2006 14:02:31 -0000	1.17
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	15 Feb 2006 12:54:01 -0000	1.18
@@ -908,7 +908,7 @@
     if {[[self]::payload info procs content] ne ""} {
       return  [my substitute_markup [[self]::payload content]]
     } else {
-      return "<pre>[my set text]</pre>"
+      return "<pre>[string map {> &gt; < &lt;} [my set text]]</pre>"
     }
   }