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.18 -r1.19
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	25 Jun 2007 13:45:26 -0000	1.18
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	22 Jul 2007 12:35:20 -0000	1.19
@@ -522,7 +522,7 @@
     set href [export_vars -base [ad_conn url] $query]
     html::a -href $href -title $title {
       html::t [my _ label]
-      html::img -src $img -alt ""
+      html::img -src $img -alt "" -border 0
     }
   }