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.32.2.8 -r1.32.2.9
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	28 Mar 2008 12:18:27 -0000	1.32.2.8
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	28 Mar 2008 22:02:15 -0000	1.32.2.9
@@ -532,6 +532,7 @@
 		   [list name [my name] editor [my editor] editors $editors]]
       }
       #my class $editor_class
+      foreach m [my info mixin] {if {[$m exists editor_mixin]} {my mixin delete $m}}
       my mixin add $editor_class
       my reset_parameter
       my set __initialized 1
@@ -582,6 +583,7 @@
     {editor wym}
     {CSSclass wymeditor}
   }
+  FormField::richtext::wym set editor_mixin 1
   FormField::richtext::wym instproc initialize {} {
     next
     my set widget_type richtext
@@ -610,6 +612,7 @@
     {height 350px}
     {style "width: 100%"}
   }
+  FormField::richtext::xinha set editor_mixin 1
   FormField::richtext::xinha instproc initialize {} {
     next
     my set widget_type richtext