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.15 -r1.16
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	11 Jun 2007 22:04:51 -0000	1.15
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	19 Jun 2007 11:18:37 -0000	1.16
@@ -538,10 +538,13 @@
   Class create TABLE::ImageField \
       -superclass TABLE::Field \
       -instproc render-data {line} {
-	html::a -href [$line set [my name].href] -style "border-bottom: none;" {
-	  html::img [$line attlist [my name] {src width height border title alt}] {}
-	}
-	$line render_localizer
+        set href [$line set [my name].href]
+        if {$href ne ""} {
+          html::a -href $href -style "border-bottom: none;" {
+            html::img [$line attlist [my name] {src width height border title alt}] {}
+          }
+          $line render_localizer
+        }
       }
 
   Class create TABLE::BulkAction -superclass ::xo::Drawable