Index: openacs-4/packages/categories/www/include/widget.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/include/widget.tcl,v
diff -u -r1.6 -r1.6.6.1
--- openacs-4/packages/categories/www/include/widget.tcl	6 Oct 2007 13:48:29 -0000	1.6
+++ openacs-4/packages/categories/www/include/widget.tcl	29 Sep 2013 12:04:42 -0000	1.6.6.1
@@ -17,10 +17,10 @@
 template::util::list_to_lookup [category::get_mapped_categories $object_id] mapped
 
 foreach tree [category_tree::get_mapped_trees $package_id] {
-    util_unlist $tree tree_id tree_name subtree_id assign_single_p require_category_p
+    lassign $tree tree_id tree_name subtree_id assign_single_p require_category_p
     set one_tree [list]
     foreach category [category_tree::get_tree -subtree_id $subtree_id $tree_id] {
-	util_unlist $category category_id category_name deprecated_p level
+	lassign $category category_id category_name deprecated_p level
 	set indent ""
 	if {$level>1} {
 	    set indent "[string repeat " " [expr {2*$level -4}]].."