Index: openacs-4/packages/acs-templating/tcl/list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/list-procs.tcl,v
diff -u -r1.94 -r1.94.2.1
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl	20 Dec 2018 13:02:06 -0000	1.94
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl	1 Mar 2019 10:38:05 -0000	1.94.2.1
@@ -303,7 +303,7 @@
 
     # Set default for no_data
     set row_pretty_plural [lang::util::localize $row_pretty_plural]
-    set no_data [ad_decode $no_data "" [_ acs-templating.No_row_pretty_plural] $no_data]
+    set no_data [expr {$no_data eq "" ? "[_ acs-templating.No_row_pretty_plural]" : $no_data}]
     # Set ulevel to the level of the page, so we can access it later
     set list_properties(ulevel) "\#[expr {[info level] - $ulevel}]"
 
@@ -1527,7 +1527,7 @@
 
             if {$list_properties(orderby_selected_name) eq $element_name} {
                 # We're currently ordering on this column
-                set direction [ad_decode $list_properties(orderby_selected_direction) "asc" "desc" "asc"]
+                set direction [expr {$list_properties(orderby_selected_direction) eq "asc" ? "desc" : "asc"}]
                 set element_properties(orderby_url) [get_url \
                                                          -name $name \
                                                          -override [list [list $list_properties(orderby_name) "${element_name},$direction"]]]
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 -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} {