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.64 -r1.65
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	4 Apr 2008 23:52:27 -0000	1.64
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	9 Apr 2008 10:52:56 -0000	1.65
@@ -582,6 +582,12 @@
   FormField::textarea instproc initialize {} {
     my set widget_type text(textarea)
     foreach p [list rows cols style] {if {[my exists $p]} {my set html($p) [my $p]}}
+    if {![my istype ::xowiki::FormField::richtext] && [my exists editor]} {
+      # downgrading
+      #my msg "downgrading [my info class]"
+      foreach m [my info mixin] {if {[$m exists editor_mixin]} {my mixin delete $m}}
+      foreach v {editor options} {if {[my exists $v]} {my unset $v}}
+    }
     next
   }