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 -N -r1.7.2.126 -r1.7.2.127
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl	25 Apr 2021 20:46:09 -0000	1.7.2.126
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl	25 Apr 2021 20:57:13 -0000	1.7.2.127
@@ -3546,7 +3546,7 @@
         append HTML [subst {
           <tr>
           <td>[ns_quotehtml [$form_obj title]]</td>
-          <td>$structure</td>
+          <td>[:dict_value $chunk type]: $structure</td>
           <td style='text-align: center;'>[:dict_value $chunk Minutes]</td>
           <td style='text-align: center;'>[:dict_value $chunk Points]</td>
           <td style='text-align: center;'>[:pretty_shuffle [:dict_value $chunk shuffle]]</td>
@@ -3811,7 +3811,8 @@
     switch [:info class] {
       ::xowiki::formfield::radio -
       ::xowiki::formfield::checkbox {
-        # mc interaction
+        # mc and sc interaction
+        set type [expr {[:info class] eq "::xowiki::formfield::checkbox" ? "MC" : "SC"}]
         #
         # The factual (displayed) answer is in ${:answer}, but we want
         # to see the list of possibilities, so use the data from the
@@ -3829,6 +3830,7 @@
         #ns_log warning "describe: $d"
       }
       ::xowiki::formfield::text_fields {
+        set type ShortText
         # short text interaction
         #
         # The factual (displayed) answer is in ${:answer}, but we want
@@ -3847,9 +3849,11 @@
         #ns_log warning "describe: $d"
       }
       default {
+        set type [:info class]
         ns_log warning "describe: class [:info class] not handled"
       }
     }
+    dict set d type $type
     return $d
   }
 }