Index: openacs-4/packages/acs-tcl/lib/actions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/lib/actions.tcl,v
diff -u -r1.2 -r1.2.10.1
--- openacs-4/packages/acs-tcl/lib/actions.tcl	10 Jan 2007 21:22:11 -0000	1.2
+++ openacs-4/packages/acs-tcl/lib/actions.tcl	29 Sep 2013 11:57:03 -0000	1.2.10.1
@@ -16,11 +16,11 @@
     foreach action $action_list {
 
         if {[lindex $action 0] eq "LINK"} {
-            foreach {type stub text title long} $action {break}
+            lassign $action type stub text title long
             multirow append actions $type "$base_url$stub" $text $title $long
 
         } elseif {[lindex $action 0] eq "SECTION"} {
-            foreach {type title long} $action {break}
+            lassign $action type title long
             multirow append actions $type {} {} $title $long
 
         } else {