Index: openacs-4/packages/forums/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/form-procs.tcl,v
diff -u -N -r1.13.2.5 -r1.13.2.6
--- openacs-4/packages/forums/tcl/form-procs.tcl	16 Feb 2021 06:54:52 -0000	1.13.2.5
+++ openacs-4/packages/forums/tcl/form-procs.tcl	31 Mar 2022 16:33:54 -0000	1.13.2.6
@@ -22,25 +22,24 @@
     # Form definition
     #
 
+    set optional_switch [list]
     if { $optional_p } {
-        set optional_switch "-optional"
-    } else {
-        set optional_switch ""
+        lappend optional_switch -optional
     }
 
     template::element create $form_name ${prefix}subject \
         -label [_ forums.Subject] \
         -datatype text \
         -widget text \
         -html {maxlength 200 size 60} \
-        $optional_switch
+        {*}$optional_switch
 
     template::element create $form_name ${prefix}message_body \
         -label [_ forums.Body] \
         -datatype richtext \
         -widget richtext \
         -html {rows 20 cols 60 style {width:100%}} \
-        $optional_switch
+        {*}$optional_switch
 
 }