Index: openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl,v
diff -u -r1.87.2.11 -r1.87.2.12
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	27 Feb 2021 22:25:31 -0000	1.87.2.11
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	23 Apr 2021 09:01:31 -0000	1.87.2.12
@@ -790,12 +790,6 @@
 
         template::element create $form_name __refreshing_p -datatype integer -widget hidden -value 0
 
-        #
-        # Add the hidden button element.
-        #
-        template::element create $form_name "__submit_button_name" -datatype text -widget hidden -value ""
-        template::element create $form_name "__submit_button_value" -datatype text -widget hidden -value ""
-
         if {[info exists csrf_protection_p] && $csrf_protection_p} {
             #
             # Add CSRF value to every ad_form. Validation might be
@@ -1101,14 +1095,6 @@
                 uplevel #$level [list set $element_name $value]
             }
         }
-        #
-        # Update the clicked button if it does not already exist.
-        #
-        uplevel #$level {
-            if {[info exists __submit_button_name] && $__submit_button_name ne ""} {
-                set $__submit_button_name $__submit_button_value
-            }
-        }
 
         if { [info exists key_name] } {
             upvar #$level $key_name __key