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.40 -r1.7.2.41
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl	23 Mar 2020 16:54:47 -0000	1.7.2.40
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl	26 Mar 2020 09:57:26 -0000	1.7.2.41
@@ -501,13 +501,15 @@
     set options {}
     set render_hints {}
     set answer {}
+    set solution {}
     set count 0
 
     foreach {fieldName value} $answerFields {
       #ns_log notice ...fieldName=$fieldName->$value
       set af answer[incr count]
       lappend options [list [dict get $value $fieldName.text] $af]
       lappend answer [dict get $value $fieldName.correct_when]
+      lappend solution [dict get $value $fieldName.solution]
       lappend render_hints [list \
                                   words [dict get $value $fieldName.options] \
                                   lines [dict get $value $fieldName.lines]]
@@ -519,6 +521,7 @@
     dict set fc_dict label ""
     dict set fc_dict options $options
     dict set fc_dict answer $answer
+    dict set fc_dict descriptions $solution
     dict set fc_dict render_hints $render_hints
 
     append form \
@@ -594,6 +597,7 @@
     :create_components  [subst {
       {text  {$widget,height=100px,label=#xowf.sub_question#,plugins=OacsFs}}
       $textEntryConfigSpec $autoCorrectSpec
+      {solution {textarea,rows=2,label=#xowf.Solution#}}
     }]
     set :__initialized 1
   }