Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -r1.109 -r1.110
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	23 Oct 2008 12:35:48 -0000	1.109
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	31 Oct 2008 00:50:53 -0000	1.110
@@ -296,6 +296,9 @@
     if {[info exists page_order] && $page_order ne ""} {
       set page_order [string trim $page_order " ."]
     }
+    #$data set text [::xowiki::tidy [$data set text]]-
+    foreach {text format} [my var text] break
+    my var text [list [list [::xowiki::tidy $text] $format]]
   }
   WikiForm instproc update_references {} {
     my instvar data folder_id