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.7 -r1.8 --- openacs-4/packages/acs-templating/tcl/tag-procs.tcl 1 Sep 2002 02:24:57 -0000 1.7 +++ openacs-4/packages/acs-templating/tcl/tag-procs.tcl 23 Aug 2003 00:26:26 -0000 1.8 @@ -81,6 +81,11 @@ } } + # LARS: The 'eval' statement here breaks if any key or value above contains a semicolon, + # since this causes eval to treat whatever comes after the semicolon as a new command. + # I'm not sure why we need to eval here at all, there ought to be another solution, + # but it's not clear what the intention of below statement is. + set tokens [eval [concat list [join $tokens " "]]] return $tokens