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.53 -r1.54
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	6 Nov 2012 15:47:28 -0000	1.53
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	12 Aug 2013 20:01:06 -0000	1.54
@@ -377,7 +377,7 @@
     $M contains $cmd
     set slots [list]
     foreach c [$M children] {
-      eval lappend slots [$c get-slots]
+      lappend slots {*}[$c get-slots]
     }
     my proc add $slots {
       set __self [::xo::Table::Line new]