Index: openacs-4/packages/news-aggregator-portlet/www/news-aggregator-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator-portlet/www/news-aggregator-portlet.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/news-aggregator-portlet/www/news-aggregator-portlet.tcl	26 Feb 2007 19:51:10 -0000	1.4
+++ openacs-4/packages/news-aggregator-portlet/www/news-aggregator-portlet.tcl	7 Apr 2018 11:04:55 -0000	1.5
@@ -8,7 +8,7 @@
 }
 
 set user_id [ad_conn user_id]
-set write_p [ad_permission_p $user_id write]
+set write_p [permission::permission_p -object_id $user_id -privilege write]
 
 array set config $cf	
 set shaded_p 0