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.74 -r1.75
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	14 Jul 2007 18:14:26 -0000	1.74
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	15 Jul 2007 16:14:08 -0000	1.75
@@ -756,11 +756,14 @@
     #
     # append some fields after the HTML contents of the form 
     #
+    set submit_button_class ""
     $root appendFromScript {    
       # append category fields
       foreach f $form_fields {
         if {[string match "__category_*" [$f name]]} {
           $f render_item
+        } elseif {[$f info class] eq "::xowiki::FormField::richtext::wym"} {
+          set submit_button_class "wymupdate"
         }
       }
 
@@ -771,7 +774,7 @@
         }
       }
       ::html::br 
-      ::html::input -type submit
+      ::html::input -type submit -class $submit_button_class
     }
     set form [lindex [$root selectNodes //form] 0]
     if {$form eq ""} {