Index: openacs-4/packages/acs-templating/tcl/tag-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/tag-procs.tcl,v diff -u -N -r1.25 -r1.26 --- openacs-4/packages/acs-templating/tcl/tag-procs.tcl 2 Oct 2017 09:25:36 -0000 1.25 +++ openacs-4/packages/acs-templating/tcl/tag-procs.tcl 17 Jan 2018 22:03:53 -0000 1.26 @@ -22,7 +22,7 @@ # parse simplified conditional expression set args [template_tag_if_concat_params $params] - if {[catch { + ad_try { while { 1 } { @@ -33,7 +33,6 @@ if { [llength $args] == 0 } { break } set conjunction [lindex $args 0] - switch -- $conjunction { and { append condition " && " } @@ -48,8 +47,7 @@ set args [lrange $args 1 end] } - } errorMsg]} { - + } on error {errorMsg} { set condition "$condition_type \{ 1 " set chunk $errorMsg }