Index: openacs-4/packages/acs-templating/tcl/util-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/util-procs.tcl,v diff -u -r1.28.2.13 -r1.28.2.14 --- openacs-4/packages/acs-templating/tcl/util-procs.tcl 3 Oct 2016 18:52:07 -0000 1.28.2.13 +++ openacs-4/packages/acs-templating/tcl/util-procs.tcl 27 Nov 2016 12:19:35 -0000 1.28.2.14 @@ -910,7 +910,7 @@ } append varlist " \n" } else { - if [catch {append varlist "'[uplevel #$level set $i]'\n"}] { + if {[catch {append varlist "'[uplevel #$level set $i]'\n"}]} { append varlist "bad string value\n" } }