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 -N -r1.22 -r1.23
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	10 Aug 2007 19:59:48 -0000	1.22
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	14 Sep 2007 09:33:10 -0000	1.23
@@ -593,12 +593,13 @@
   Class TABLE2 \
       -superclass TABLE \
       -instproc render-actions {} {
-	html::div -id "actions" -style "float: left" {
-	  html::ul -style "list-style:none; padding: 10px;" {
-	    foreach o [[self]::__actions children] {
-	      html::li -class "button" {$o render}
-	    }
-	  }
+        set actions [[self]::__actions children]
+        if {[llength $actions] > 0} {
+          html::div -class "actions" -style "float: left;" {
+            html::ul -style "list-style:none; padding: 10px;" {
+              foreach o $actions { html::li -class "button" {$o render} }
+            }
+          }
 	}
       } \
       -instproc render {} {