Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.75 -r1.76
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	29 May 2008 19:13:43 -0000	1.75
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	2 Jun 2008 12:28:13 -0000	1.76
@@ -607,6 +607,7 @@
         folder_id
         width
         height
+        {wiki false}
       }
   
   richtext instproc editor {args} {
@@ -653,7 +654,11 @@
   richtext instproc render_richtext_as_div {} {
     #my msg "[my get_attributes id style {CSSclass class}]"
     ::html::div [my get_attributes id style {CSSclass class}] {
-      ::html::t -disableOutputEscaping [my value]
+      if {[my wiki]} {
+        ::html::t -disableOutputEscaping [[my object] substitute_markup  [list [my value] text/html]]
+      } else {
+        ::html::t -disableOutputEscaping [my value]
+      }
     }
     ::html::div
   }