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.19 -r1.20
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	22 Jul 2007 12:35:20 -0000	1.19
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	24 Jul 2007 20:52:16 -0000	1.20
@@ -481,7 +481,11 @@
 
   Class create TABLE::Field -superclass ::xo::Drawable 
   TABLE::Field instproc render-data {line} {
-    html::t [$line set [my name]] 
+    if {[$line exists [my name].richtext]} {
+      html::t -disableOutputEscaping [$line set [my name]]
+    } else {
+      html::t [$line set [my name]] 
+    }
   }
 
   TABLE::Field instproc render {} {