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.112 -r1.113
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	12 Nov 2008 20:56:03 -0000	1.112
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	17 Dec 2008 23:00:56 -0000	1.113
@@ -288,7 +288,9 @@
     upvar #[template::adp_level] text text
     if {[info exists text]} {
       foreach {text format} [my var text] break
-      my var text [list [list [::xowiki::tidy clean $text] $format]]
+      if {[info exists format]} {
+        my var text [list [list [::xowiki::tidy clean $text] $format]]
+      }
     }
   }