Index: openacs-4/packages/xowiki/www/prototypes/categories-portlet.page
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/prototypes/categories-portlet.page,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/xowiki/www/prototypes/categories-portlet.page	6 Nov 2008 20:54:00 -0000	1.4
+++ openacs-4/packages/xowiki/www/prototypes/categories-portlet.page	29 May 2009 13:38:08 -0000	1.5
@@ -44,10 +44,10 @@
       }
       set categories [list]
       set pos 0
-      set cattree(0) [::xowiki::CatTree new -volatile -orderby pos -name $my_tree_name]
+      set cattree(0) [::xowiki::Tree new -volatile -orderby pos -name $my_tree_name]
       foreach category_info [::xowiki::Category get_category_infos -tree_id $tree_id] {
         foreach {cid category_label deprecated_p level} $category_info {break}
-        set c [::xowiki::Category new -orderby pos -category_id $cid -package_id $package_id \
+        set c [::xowiki::TreeNode new -orderby pos -category_id $cid -package_id $package_id \
                    -level $level -label $category_label -pos [incr pos]]
         set cattree($level) $c
         set plevel [expr {$level -1}]