Index: openacs-4/packages/news/tcl/test/news-db-test-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/test/news-db-test-init.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/news/tcl/test/news-db-test-init.tcl	8 Nov 2010 11:44:42 -0000	1.9
+++ openacs-4/packages/news/tcl/test/news-db-test-init.tcl	6 Sep 2013 16:46:28 -0000	1.10
@@ -561,9 +561,9 @@
 
     aa_log "Check the correct groups have the right privileges."
     aa_true "Check public have news_read privilege" \
-        [ad_permission_p $the_public_id news_read]
+        [permission::permission_p -object_id $the_public_id -privilege news_read]
     aa_true "Check registered_users have news_create privilege" \
-        [ad_permission_p $registered_users_id news_read]
+        [permission::permission_p -object_id $registered_users_id -privilege news_read]
 }