Index: openacs-4/packages/categories/www/cadmin/tree-map.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-map.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/categories/www/cadmin/tree-map.tcl	20 May 2011 10:41:12 -0000	1.9
+++ openacs-4/packages/categories/www/cadmin/tree-map.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
+    tree_id:naturalnum,notnull
     {locale ""}
-    object_id:integer,notnull
-    ctx_id:integer,optional
+    object_id:naturalnum,notnull
+    ctx_id:naturalnum,optional
 } -properties {
     page_title:onevalue
     context_bar:onevalue
@@ -34,7 +34,7 @@
 template::multirow create tree category_id category_name level left_indent map_url
 
 foreach category [category_tree::get_tree -all $tree_id $locale] {
-    util_unlist $category category_id category_name deprecated_p level
+    lassign $category category_id category_name deprecated_p level
 
     template::multirow append tree $category_id $category_name $level \
 	[string repeat " " [expr {($level-1)*5}]] \