Index: openacs-4/packages/categories/tcl/category-trees-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-trees-procs.tcl,v
diff -u -N -r1.25.4.4 -r1.25.4.5
--- openacs-4/packages/categories/tcl/category-trees-procs.tcl	11 Oct 2013 12:08:21 -0000	1.25.4.4
+++ openacs-4/packages/categories/tcl/category-trees-procs.tcl	26 Oct 2013 09:31:10 -0000	1.25.4.5
@@ -584,9 +584,9 @@
 	template::multirow create $datasource tree_id tree_name category_id category_name level pad deprecated_p count child_sum
     }
     foreach mapped_tree $mapped_trees {
-        foreach {tree_id tree_name subtree_id assign_single_p require_category_p} $mapped_tree { break }
+        lassign $mapped_tree tree_id tree_name subtree_id assign_single_p require_category_p
         foreach category [category_tree::get_tree -subtree_id $subtree_id $tree_id] {
-            foreach {category_id category_name deprecated_p level} $category { break }
+            lassign $category category_id category_name deprecated_p level
             if { $level > 1 } {
                 set pad "[string repeat " " [expr {2 * $level - 4}]].."
             } else {