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.39 -r1.40
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	12 Dec 2008 13:30:02 -0000	1.39
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	16 Dec 2008 17:08:51 -0000	1.40
@@ -485,7 +485,7 @@
 	-superclass ::xo::Table::Field \
 	-instproc get-slots {} {
 	  set slots [list -[my name]]
-	  foreach subfield {href text CSSclass} {
+	  foreach subfield {href title CSSclass} {
 	    lappend slots [list -[my name].$subfield ""]
 	  }
 	  return $slots
@@ -723,7 +723,9 @@
       -instproc render-data {line} {
 	if {[$line exists [my name].href] && 
 	    [set href [$line set [my name].href]] ne ""} {
-          $line instvar [list [my name].CSSclass CSSclass] [list [my name].title title]
+          # use the CSS class rather from the Field than not the line
+          my instvar CSSclass
+          $line instvar [list [my name].title title]
           html::a [my get_local_attributes href title {CSSclass class}] {
 	    return [next]
 	  }