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.70.2.28 -r1.70.2.29
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	20 Dec 2021 17:42:30 -0000	1.70.2.28
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	5 Jan 2022 18:00:00 -0000	1.70.2.29
@@ -867,8 +867,15 @@
         if {[$line exists ${:name}.href]
             && [set href [$line set ${:name}.href]] ne ""
           } {
-          # Use the CSS class from the Field and not from the Line
-          if {[info exists :CSSclass]} {set CSSclass ${:CSSclass}}
+          # Default class is from the field definition. To it we
+          # append the class coming from the line.
+          set CSSclass ${:CSSclass}
+          if {[$line exists ${:name}.CSSclass]} {
+            set lineCSSclass [$line set ${:name}.CSSclass]
+            if {$lineCSSclass ne ""} {
+              append CSSclass " " $lineCSSclass
+            }
+          }
           $line instvar [list ${:name}.title title]
           html::a [:get_local_attributes href title {CSSclass class}] {
             return [next]