Index: openacs-4/packages/xowf/xowf.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/xowf.info,v
diff -u -r1.12.2.66 -r1.12.2.67
--- openacs-4/packages/xowf/xowf.info	11 Jan 2022 10:57:32 -0000	1.12.2.66
+++ openacs-4/packages/xowf/xowf.info	12 Jan 2022 17:47:21 -0000	1.12.2.67
@@ -10,16 +10,16 @@
     <inherit-templates-p>t</inherit-templates-p>
     <auto-mount>xowf</auto-mount>
 
-    <version name="5.10.1d18" url="http://openacs.org/repository/download/apm/xowf-5.10.1d18.apm">
+    <version name="5.10.1d19" url="http://openacs.org/repository/download/apm/xowf-5.10.1d19.apm">
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <summary>XoWiki Content Flow - an XoWiki based workflow system implementing state-based behavior of wiki pages and forms</summary>
         <release-date>2021-09-15</release-date>
         <vendor url="http://wu.ac.at">WU Vienna</vendor>
         <license>BSD-Style</license>
         <maturity>2</maturity>
 
-        <provides url="xowf" version="5.10.1d18"/>
-        <requires url="xowiki" version="5.10.1d9"/>
+        <provides url="xowf" version="5.10.1d19"/>
+        <requires url="xowiki" version="5.10.1d10"/>
         <requires url="xotcl-core" version="5.10.1d4"/>
         <requires url="acs-tcl" version="5.10.1d8"/>
         <requires url="acs-automated-testing" version="5.10.0"/>
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]
     }]