Index: openacs-4/packages/poll/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/poll/www/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/poll/www/index.tcl	3 Sep 2004 10:56:50 -0000	1.1
+++ openacs-4/packages/poll/www/index.tcl	7 Apr 2018 11:17:50 -0000	1.2
@@ -13,7 +13,7 @@
 set user_id    [ad_conn user_id]
 
 # Check if the user has the proper rights.
-set create_p [ad_permission_p $package_id create]
+set create_p [permission::permission_p -object_id $package_id -privilege create]
 
 #
 # List all the polls.