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.78 -r1.79
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	16 Jul 2007 22:43:35 -0000	1.78
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	17 Jul 2007 00:16:19 -0000	1.79
@@ -758,8 +758,8 @@
           $f render_error_msg
         }
       }
-      ::html::br 
-      ::html::input -type submit -class $submit_button_class
+      set f [::xowiki::FormField::submit_button new -destroy_on_cleanup -name __form_button_ok]
+      $f render_content
     }
     set form [lindex [$root selectNodes //form] 0]
     if {$form eq ""} {