Index: openacs-4/packages/acs-templating/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/widget-procs.tcl,v
diff -u -N -r1.63 -r1.63.2.1
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	17 May 2018 07:45:19 -0000	1.63
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	1 Mar 2019 10:41:51 -0000	1.63.2.1
@@ -971,7 +971,7 @@
                 lassign $question name required_p
                 append output \
                     "<td>" \
-                    [ad_decode $required_p "t" "<span style=\"color: #f00;\">*</span>" "&nbsp;"] \
+                    [expr {$required_p eq "t" ? {<span style="color: #f00;">*</span>} : {&nbsp;}}] \
                     "</td>"
                 foreach choice [lindex $question 2] {
                     if {$choice ni $value} {