Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.284.2.53 -r1.284.2.54
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	26 Nov 2019 12:44:39 -0000	1.284.2.53
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	26 Nov 2019 18:43:19 -0000	1.284.2.54
@@ -859,7 +859,7 @@
   }
 
   FormField instproc render_word_statistics {} {
-    #ns_log notice ":answer_statistics: ${:answer_statistics}"
+    #ns_log notice ":render_word_statistics: ${:word_statistics_option}"
     if {${:word_statistics_option} eq "word_cloud"} {
       set jsWords {}
       foreach {word freq} [lsort -decreasing -integer -stride 2 -index 1 ${:word_statistics}] {
@@ -2357,8 +2357,23 @@
                             }
       :resetBooleanAttributes $booleanAtts
     }
+    :render_result_statistics
   }
 
+  textarea instproc set_feedback {feedback_mode} {
+    set :correction [next]
+    return ${:correction}
+  }
+  
+  textarea instproc add_statistics {{-options ""}} {
+    #:log "add_statistics $options"
+    next
+    if {[dict exists $options word_statistics]} {
+      :log "add_statistics call :word_statistics"
+      :word_statistics [dict get $options word_statistics]
+    }
+  }
+
   ###########################################################
   #
   # ::xowiki::formfield::code_listing