Index: openacs-4/packages/categories/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/widget-procs.tcl,v
diff -u -r1.22 -r1.22.4.1
--- openacs-4/packages/categories/tcl/widget-procs.tcl	8 Nov 2008 17:05:38 -0000	1.22
+++ openacs-4/packages/categories/tcl/widget-procs.tcl	29 Sep 2013 12:04:41 -0000	1.22.4.1
@@ -125,7 +125,7 @@
     }
 
     foreach mapped_tree $mapped_trees {
-	util_unlist $mapped_tree tree_id tree_name subtree_id assign_single_p require_category_p widget
+	lassign $mapped_tree tree_id tree_name subtree_id assign_single_p require_category_p widget
 	set tree_name [ad_quotehtml [lang::util::localize $tree_name]]
 	set one_tree [list]
 
@@ -136,7 +136,7 @@
         }
 
 	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 category_name [ad_quotehtml [lang::util::localize $category_name]]
 	    if { $level>1 } {
 		set category_name "[string repeat " " [expr {2*$level -4}]]..$category_name"
@@ -250,7 +250,7 @@
     if { $tree_id eq "" } {
 	set trees [list]
         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
 	    if {$require_category_p == "t" || ![info exists element(optional)]} {
 		lappend trees [list $tree_id $subtree_id]
 	    }
@@ -265,7 +265,7 @@
 
     set trees_without_category [list]
     foreach tree $trees {
-	util_unlist $tree tree_id subtree_id
+	lassign $tree tree_id subtree_id
 	# get categories of every tree requiring a categorization
 	foreach category [category_tree::get_tree -all -subtree_id $subtree_id $tree_id] {
 	    set tree_categories([lindex $category 0]) 1