Index: openacs-4/packages/categories/tcl/category-list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-list-procs.tcl,v
diff -u -N -r1.6 -r1.6.4.1
--- openacs-4/packages/categories/tcl/category-list-procs.tcl	8 Nov 2008 17:05:38 -0000	1.6
+++ openacs-4/packages/categories/tcl/category-list-procs.tcl	29 Sep 2013 12:04:41 -0000	1.6.4.1
@@ -146,7 +146,7 @@
     set result ""
     set old_tree_id 0
     foreach category $sorted_categories {
-	util_unlist $category category_id category_name tree_id tree_name
+	lassign $category category_id category_name tree_id tree_name
 
 	set category_name [ad_quotehtml $category_name]
 	if {$category_link_eval ne ""} {
@@ -317,7 +317,7 @@
 		set pretty_category_list ""
 
 		foreach category $tree_categories($tree_id) {
-		    util_unlist $category category_id category_name
+		    lassign $category category_id category_name
 		    set category_name [ad_quotehtml $category_name]
 		    if {$category_link_eval ne ""} {
 			set category_link [uplevel 1 concat $category_link_eval]
@@ -494,7 +494,7 @@
 	# pretty list of category-names
 	set result ""
 	foreach tree $trees {
-	    util_unlist $tree tree_name tree_id
+	    lassign $tree tree_name tree_id
 	    append result "$categories_column\_$tree_id {
 		label \"$tree_name\"
 		display_template {[regsub -all "@$name\.$categories_column\(;noquote\)?@" $display_template "@$name\.$categories_column\_$tree_id\\1@"]}