Index: openacs-4/packages/acs-subsite/www/admin/groups/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/one.tcl,v
diff -u -r1.6.10.1 -r1.6.10.2
--- openacs-4/packages/acs-subsite/www/admin/groups/one.tcl	6 Sep 2013 12:06:49 -0000	1.6.10.1
+++ openacs-4/packages/acs-subsite/www/admin/groups/one.tcl	29 Sep 2013 12:03:22 -0000	1.6.10.2
@@ -64,7 +64,7 @@
 
     set mapped_trees [category_tree::get_mapped_trees $group_id]
     foreach mapped_tree $mapped_trees {
-	util_unlist $mapped_tree tree_id tree_name subtree_id
+	lassign $mapped_tree tree_id tree_name subtree_id
 	if {$subtree_id ne ""} {
 	    set tree_name "${tree_name}::[category::get_name $subtree_id]"
 	}