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.8 -r1.7.2.9
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl	4 Nov 2019 10:47:14 -0000	1.7.2.8
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl	6 Nov 2019 18:45:47 -0000	1.7.2.9
@@ -838,6 +838,17 @@
       return ${stem}_
     }
 
+
+    :public object method answer_attributes {instance_attributes} {
+      set result ""
+      foreach key [lsort [dict keys $instance_attributes]] {
+        if {[string match *_ $key]} {
+          lappend result $key [dict get $instance_attributes $key]
+        }
+      }
+      return $result
+    }
+
     :public object method get_form_object {{-set_title:boolean true} ctx form_name} {
       #:msg "renaming_form_loader for form_name <$form_name>"
       set form_id [$ctx default_load_form_id $form_name]