Index: openacs-4/packages/bookmarks/www/bookmark-header.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bookmarks/www/bookmark-header.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/bookmarks/www/bookmark-header.tcl	29 Jun 2004 10:17:48 -0000	1.2
+++ openacs-4/packages/bookmarks/www/bookmark-header.tcl	9 Sep 2013 12:19:56 -0000	1.3
@@ -61,8 +61,8 @@
     set root_folder_id 0
 }
 
-set root_admin_p [ad_permission_p $root_folder_id admin]
-set bookmarks_admin_p [ad_permission_p $package_id admin]
+set root_admin_p [permission::permission_p -object_id $root_folder_id -privilege admin]
+set bookmarks_admin_p [permission::permission_p -object_id $package_id -privilege admin]
 set write_p [bm_user_can_write_in_some_folder_p $viewed_user_id]
 set tree_url [export_vars -base tree { viewed_user_id write_p user_name }]