Index: openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl	16 Oct 2006 15:21:53 -0000	1.26
+++ openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl	11 Sep 2013 07:23:42 -0000	1.27
@@ -104,7 +104,7 @@
         array set blog_site_node [site_node::get -url $url]
         set package_id $blog_site_node(object_id)
     }
-    set create_p [ad_permission_p $package_id create]
+    set create_p [permission::permission_p -object_id $package_id -privilege create]
     return [util_memoize [list lars_blog_get_as_string_mem $package_id $create_p $display_template] 600]
 }