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.194 -r1.7.2.195 --- openacs-4/packages/xowf/tcl/test-item-procs.tcl 11 Jan 2022 10:57:32 -0000 1.7.2.194 +++ openacs-4/packages/xowf/tcl/test-item-procs.tcl 12 Jan 2022 11:50:25 -0000 1.7.2.195 @@ -400,7 +400,7 @@ $shuffleSpec $gradingSpec $typeSpecificComponentSpec - [list [:dict_to_spec -aspair $twocolDict]] + [expr {$twocolDict ne "" ? [list [:dict_to_spec -aspair $twocolDict]] : ""}] {interaction {$interaction_class,$options,feedback_level=${:feedback_level},auto_correct=${:auto_correct},label=}} [:feed_back_definition] }]