Index: openacs-4/packages/categories/www/categories-browse.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/categories-browse.tcl,v
diff -u -r1.9.4.4 -r1.9.4.5
--- openacs-4/packages/categories/www/categories-browse.tcl	9 Sep 2013 16:44:26 -0000	1.9.4.4
+++ openacs-4/packages/categories/www/categories-browse.tcl	29 Sep 2013 12:04:41 -0000	1.9.4.5
@@ -55,7 +55,7 @@
 foreach tree_id $tree_ids {
     set tree_name [category_tree::get_name $tree_id]
     foreach category [category_tree::get_tree $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}]].."