Index: openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl,v
diff -u -N -r1.20 -r1.20.2.1
--- openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl	17 Sep 2018 13:47:05 -0000	1.20
+++ openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl	1 Mar 2019 15:31:13 -0000	1.20.2.1
@@ -550,14 +550,14 @@
                     lappend option_list [list " (no value) " ""]
                 }
                 template::element create $form_id "$variable_prefix$attribute_name" \
-                    -datatype "text" [ad_decode $required_p "f" "-optional" ""] \
+                    -datatype "text" [expr {$required_p eq "f" ? "-optional" : ""}] \
                     -widget select \
                     -options $option_list \
                     -label "$pretty_name" \
                     -value $default
             } else {
                 template::element create $form_id "$variable_prefix$attribute_name" \
-                    -datatype $datatype [ad_decode $required_p "f" "-optional" ""] \
+                    -datatype $datatype [expr {$required_p eq "f" ? "-optional" : ""}] \
                     -widget text \
                     -label $pretty_name \
                     -value $default