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.23 -r1.24
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	18 Jul 2007 10:49:33 -0000	1.23
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	18 Jul 2007 11:01:14 -0000	1.24
@@ -31,7 +31,8 @@
   Class FormField -parameter {
     {required false} 
     {display_field true} 
-    {inline false} 
+    {inline false}
+    CSSclass
     {type text} 
     {label} 
     {name} 
@@ -433,7 +434,6 @@
     {cols 80}
     {spell false}
     style
-    CSSclass
   }
   FormField::textarea instproc initialize {} {
     my set widget_type text(textarea)
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.81 -r1.82
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	18 Jul 2007 10:49:33 -0000	1.81
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	18 Jul 2007 11:01:14 -0000	1.82
@@ -710,7 +710,6 @@
 	$ff(_title) value ""
 	$ff(_name) value ""
       }
-
     }
     
     # the following command wout be correct, but does not work due to a bug in 
@@ -763,7 +762,9 @@
           $f render_error_msg
         }
       }
-      set f [::xowiki::FormField::submit_button new -destroy_on_cleanup -name __form_button_ok]
+      set f [::xowiki::FormField::submit_button new -destroy_on_cleanup \
+                 -name __form_button_ok \
+                 -CSSclass $submit_button_class]
       $f render_content
     }
     set form [lindex [$root selectNodes //form] 0]