Index: openacs-4/packages/acs-templating/www/doc/demo/list4/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/list4/index.tcl,v
diff -u -r1.1 -r1.1.12.1
--- openacs-4/packages/acs-templating/www/doc/demo/list4/index.tcl	9 Feb 2006 02:40:10 -0000	1.1
+++ openacs-4/packages/acs-templating/www/doc/demo/list4/index.tcl	6 Sep 2013 12:06:50 -0000	1.1.12.1
@@ -17,7 +17,7 @@
 set user_id [ad_conn user_id]
 
 set context [list]
-set create_p [ad_permission_p $package_id create]
+set create_p [permission::permission_p -object_id $package_id -privilege create]
 
 # Here, we are adding a link for every row. The title of the note
 # will become a link to a page that will view the note in its entirety.