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.73 -r1.284.2.74
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	1 Feb 2020 08:10:36 -0000	1.284.2.73
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	3 Feb 2020 11:31:53 -0000	1.284.2.74
@@ -56,6 +56,7 @@
     {form_button_CSSclass}
     {form_button_wrapper_CSSclass}
     {form_help_text_CSSclass}
+    {td_CSSclass}
 
     {autocomplete}
     {autofocus}
@@ -792,6 +793,7 @@
             set grading_score [dict get ${:correction_data} scores ${:grading}]
             #:log "=== grading ${:grading} => $grading_score"
             append feedback " selected_grading_score $grading_score"
+            ${:object} set_property -new 1 grading_score $grading_score
           }
         }
       }
@@ -2137,6 +2139,7 @@
 
   Class create number -superclass FormField -parameter {
     min max step value
+    {td_CSSclass right}
   }
   number instproc initialize {} {
     :type number