Index: openacs-4/packages/poll/www/poll_choice-swap.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/poll/www/poll_choice-swap.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/poll/www/poll_choice-swap.tcl	3 Sep 2004 10:56:50 -0000	1.1
+++ openacs-4/packages/poll/www/poll_choice-swap.tcl	7 Apr 2018 11:17:50 -0000	1.2
@@ -9,7 +9,7 @@
     choice_id:naturalnum
 }
 
-ad_require_permission $poll_id write
+permission::require_permission -object_id $poll_id -privilege write
 
 db_transaction {
     db_dml incr_prev "update poll_choices set sort_order = sort_order + 1