Index: openacs-4/packages/cms/www/modules/categories/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/categories/index.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/cms/www/modules/categories/index.tcl	12 Apr 2005 21:45:42 -0000	1.5
+++ openacs-4/packages/cms/www/modules/categories/index.tcl	16 May 2005 22:59:24 -0000	1.6
@@ -13,7 +13,7 @@
 
 set original_id $id
 
-set root_id [cm::modules::${mount_point}::getRootFolderID]
+set root_id [cm::modules::${mount_point}::getRootFolderID [ad_conn package_id]]
 if { [util::is_nil id] || [string equal $id _all_] } {
     set where_clause "k.parent_id is null"
 } else {