Index: openacs-4/packages/acs-templating/www/doc/demo/list8/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/list8/index.tcl,v
diff -u -r1.2 -r1.2.12.1
--- openacs-4/packages/acs-templating/www/doc/demo/list8/index.tcl	13 Feb 2006 13:05:50 -0000	1.2
+++ openacs-4/packages/acs-templating/www/doc/demo/list8/index.tcl	6 Sep 2013 12:06:51 -0000	1.2.12.1
@@ -19,7 +19,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]
 
 set actions [list]