Index: openacs-4/packages/categories/www/cadmin/tree-usage.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-usage.tcl,v
diff -u -N -r1.9 -r1.9.2.1
--- openacs-4/packages/categories/www/cadmin/tree-usage.tcl	20 May 2011 10:41:12 -0000	1.9
+++ openacs-4/packages/categories/www/cadmin/tree-usage.tcl	29 Sep 2013 12:04:42 -0000	1.9.2.1
@@ -42,7 +42,7 @@
 
 set instances_without_permission 0
 foreach instance $instance_list {
-    util_unlist $instance package object_id object_name package_id instance_name read_p
+    lassign $instance package object_id object_name package_id instance_name read_p
     set unmap_url [export_vars -no_empty -base tree-unmap {tree_id object_id ctx_id}]
 
     if {$read_p == "t"} {