Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v
diff -u -r1.42 -r1.43
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	2 Nov 2009 11:52:09 -0000	1.42
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	27 Nov 2009 09:33:45 -0000	1.43
@@ -461,7 +461,11 @@
 	  my set name [namespace tail [self]]
 	} \
 	-instproc get-slots {} {
-	  return [list -[my name] -[my name].CSSclass]
+	  set slots [list -[my name]]
+	  foreach subfield {richtext CSSclass} {
+	    lappend slots [list -[my name].$subfield ""]
+	  }
+          return $slots
 	}
 
     Class BulkAction \
@@ -665,7 +669,11 @@
 
   Class create TABLE::Field -superclass ::xo::Drawable 
   TABLE::Field instproc render-data {line} {
-    if {[my richtext]} {
+    $line instvar [list [my name].richtext richtext]
+    if {![info exists richtext] || $richtext eq ""} {
+      set richtext [my richtext]
+    }
+    if {$richtext} {
       html::t -disableOutputEscaping [$line set [my name]]
     } else {
       html::t [$line set [my name]]