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
Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.95.2.6 -r1.95.2.7
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	30 Jan 2008 10:34:03 -0000	1.95.2.6
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	28 Mar 2008 22:02:15 -0000	1.95.2.7
@@ -839,7 +839,7 @@
       foreach f $form_fields {
         if {[string match "__category_*" [$f name]]} {
           $f render_item
-        } elseif {[$f info class] eq "::xowiki::FormField::richtext::wym"} {
+        } elseif {[$f ismixin "::xowiki::FormField::richtext::wym"]} {
           set submit_button_class "wymupdate"
         }
       }
@@ -1155,4 +1155,4 @@
     }
   }
 
-}
\ No newline at end of file
+}