Index: openacs-4/packages/xowf/tcl/test-item-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test-item-procs.tcl,v diff -u -r1.7.2.196 -r1.7.2.197 --- openacs-4/packages/xowf/tcl/test-item-procs.tcl 12 Jan 2022 17:16:40 -0000 1.7.2.196 +++ openacs-4/packages/xowf/tcl/test-item-procs.tcl 12 Jan 2022 17:47:21 -0000 1.7.2.197 @@ -395,12 +395,13 @@ if {${:question_type} eq "pool"} { set twocolDict "" } + set twocolDict "" :create_components [subst { $pointsSpec $shuffleSpec $gradingSpec $typeSpecificComponentSpec - [expr {$twocolDict ne "" ? [list [:dict_to_spec -aspair $twocolDict]] : ""}] + [list [:dict_to_spec -aspair $twocolDict]] {interaction {$interaction_class,$options,feedback_level=${:feedback_level},auto_correct=${:auto_correct},label=}} [:feed_back_definition] }]