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 -N -r1.21 -r1.22
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	30 Jul 2007 17:16:03 -0000	1.21
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	10 Aug 2007 19:59:48 -0000	1.22
@@ -278,7 +278,7 @@
 
     Class Field \
 	-superclass ::xo::OrderedComposite::Child \
-	-parameter {label {html {}} {orderby ""} name} \
+	-parameter {label {html {}} {orderby ""} name {richtext false}} \
 	-instproc init {} {
 	  my set name [namespace tail [self]]
 	} \
@@ -487,7 +487,7 @@
 
   Class create TABLE::Field -superclass ::xo::Drawable 
   TABLE::Field instproc render-data {line} {
-    if {[$line exists [my name].richtext]} {
+    if {[my richtext]} {
       html::t -disableOutputEscaping [$line set [my name]]
     } else {
       html::t [$line set [my name]]