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.9 -r1.70.2.10
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	22 Aug 2019 15:01:28 -0000	1.70.2.9
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	1 Nov 2019 13:21:20 -0000	1.70.2.10
@@ -815,8 +815,9 @@
   Class create TABLE::AnchorField \
       -superclass TABLE::Field \
       -instproc render-data {line} {
-        if {[$line exists ${:name}.href] &&
-            [set href [$line set ${:name}.href]] ne ""} {
+        if {[$line exists ${:name}.href]
+            && [set href [$line set ${:name}.href]] ne ""
+          } {
           # use the CSS class rather from the Field than not the line
           :instvar CSSclass
           $line instvar [list ${:name}.title title]
@@ -845,8 +846,9 @@
   Class create TABLE::ImageAnchorField \
       -superclass TABLE::Field \
       -instproc render-data {line} {
-        set href [$line set ${:name}.href]
-        if {$href ne ""} {
+        if {[$line exists ${:name}.href]
+            && [set href [$line set ${:name}.href]] ne ""
+          } {
           #if {$line exists ${:name}.CSSclass} {set CSSclass [$line set ${:name}.CSSclass]}
           $line instvar [list ${:name}.CSSclass CSSclass]
           html::a [:get_local_attributes href {style "border-bottom: none;"} {CSSclass class}] {