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 -r1.9 -r1.10
--- 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	27 Oct 2014 16:41:14 -0000	1.10
@@ -5,10 +5,10 @@
     @author Timo Hentschel (timo@timohentschel.de)
     @cvs-id $Id:
 } {
-    tree_id:integer,notnull
+    tree_id:naturalnum,notnull
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 } -properties {
     page_title:onevalue
     context_bar:onevalue
@@ -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"} {