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 -N -r1.32.2.10 -r1.32.2.11
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	9 Oct 2008 20:45:18 -0000	1.32.2.10
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	10 Oct 2008 12:15:21 -0000	1.32.2.11
@@ -490,7 +490,10 @@
     style
   }
   FormField::textarea instproc initialize {} {
-    foreach m [my info mixin] {if {[$m exists editor_mixin]} {my mixin delete $m}}
+    if {[my info class] eq [self class]} {
+      #my msg "[my name] downgrading [my info class] to [self class]"
+      foreach m [my info mixin] {if {[$m exists editor_mixin]} {my mixin delete $m}}
+    }
     my set widget_type text(textarea)
     foreach p [list rows cols style] {if {[my exists $p]} {my set html($p) [my $p]}}
     next