Index: openacs-4/packages/acs-templating/tcl/date-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/date-procs.tcl,v
diff -u -r1.53 -r1.54
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	6 Apr 2018 15:12:00 -0000	1.53
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	7 Apr 2018 17:45:51 -0000	1.54
@@ -472,9 +472,10 @@
         set hours [lindex $date 3]
 
         # robustness check: make sure we handle form of 08:00am  --jfr
-        regexp {0([0-9])} $hours match trimmed_hours
-        if {([info exists trimmed_hours] && $trimmed_hours ne "")} {
-            set hours $trimmed_hours
+        if {[regexp {0([0-9])} $hours match trimmed_hours]} {
+            if {$trimmed_hours ne ""} {
+                set hours $trimmed_hours
+            }
         }
 
         if { $value eq "pm" && $hours < 12 } {
@@ -1056,7 +1057,7 @@
     set fragment_def $template::util::date::fragment_widgets([string toupper $token])
     set fragment [lindex $fragment_def 1]
 
-    if {([info exists id_attr_name] && $id_attr_name ne "")} {
+    if {[info exists id_attr_name] && $id_attr_name ne ""} {
 	  set attributes(id) "${id_attr_name}.${fragment}"
     }
 
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.73 -r1.74
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl	6 Apr 2018 16:45:28 -0000	1.73
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl	7 Apr 2018 17:45:51 -0000	1.74
@@ -3275,7 +3275,7 @@
         set __form [ns_getform]
         set clear_one [ns_set get $__form clear_one]
 
-        if {([info exists clear_one] && $clear_one ne "")} {
+        if {$clear_one ne ""} {
             # loop through the saved filters and remove
             # the filter from the client property if its
             # specified in clear_one
@@ -3300,7 +3300,7 @@
         }
     } -on_submit {
 
-        if {([info exists clear_all] && $clear_all ne "")} {
+        if {[info exists clear_all] && $clear_all ne ""} {
             set __client_property_filters {}
             ad_set_client_property acs-templating $__list_filter_form_client_property_key $__client_property_filters
             break