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.10 -r1.11
--- openacs-4/packages/xowiki/www/prototypes/categories-portlet.page	7 Aug 2017 23:48:31 -0000	1.10
+++ openacs-4/packages/xowiki/www/prototypes/categories-portlet.page	29 Sep 2017 10:28:50 -0000	1.11
@@ -14,7 +14,7 @@
 
   my initialize -parameter {
     {-tree_name ""}
-    {-tree_style:boolean 1}
+    {-tree_style "mktree"}
     {-no_tree_name:boolean 0}
     {-count:boolean 0}
     {-summary:boolean 0}
@@ -47,7 +47,7 @@
       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] {
         lassign $category_info cid category_label deprecated_p level
-        set c [::xowiki::TreeNode new -orderby pos -category_id $cid -package_id $package_id \
+        set c [::xowiki::TreeNode new -orderby pos \
                    -level $level -label $category_label -pos [incr pos]]
         set cattree($level) $c
         set plevel [expr {$level -1}]
@@ -99,7 +99,8 @@
               set prefix ""
               set suffix ""
               foreach var {name title prefix suffix} {$itemobj set $var [set $var]}
-              $cattree(0) add_to_category \
+              $itemobj set href [::$package_id pretty_link $name]
+              $cattree(0) add_item \
                   -category $category($category_id) \
                   -itemobj $itemobj \
                   -orderby title \