Index: openacs-4/packages/categories/lib/tree-code.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/lib/tree-code.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/categories/lib/tree-code.tcl	6 Jun 2005 09:43:47 -0000	1.1
+++ openacs-4/packages/categories/lib/tree-code.tcl	27 Oct 2014 16:41:11 -0000	1.2
@@ -4,6 +4,6 @@
 
 multirow create categories name level pad
 foreach category [category_tree::get_tree -all $tree_id $default_locale] {
-    util_unlist $category category_id category_name deprecated_p level
+    lassign $category category_id category_name deprecated_p level
     multirow append categories $category_name $level [string repeat " " [expr {2 * $level - 2}]]
 }