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 -N -r1.87.2.13 -r1.87.2.14
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	23 May 2021 17:57:07 -0000	1.87.2.13
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	15 Jul 2022 11:05:53 -0000	1.87.2.14
@@ -855,7 +855,7 @@
                     }
 
                     multiple -
-                    noquote -                    
+                    noquote -
                     nospell -
                     optional {
                         if { $af_element_parameters($element_name:$flag) ne "" } {
@@ -900,7 +900,10 @@
             }
 
             foreach extra_arg $af_extra_args($element_name) {
-                lappend form_command "-[lindex $extra_arg 0]" [uplevel [list subst [lindex $extra_arg 1]]]
+                lappend form_command "-[lindex $extra_arg 0]"
+                if {[llength $extra_arg] == 2} {
+                    lappend form_command [uplevel [list subst [lindex $extra_arg 1]]]
+                }
             }
             {*}$form_command