Index: openacs-4/packages/acs-templating/www/doc/demo/list9/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/list9/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-templating/www/doc/demo/list9/index.tcl	13 Feb 2006 13:11:12 -0000	1.1
+++ openacs-4/packages/acs-templating/www/doc/demo/list9/index.tcl	27 Oct 2014 16:40:22 -0000	1.2
@@ -8,7 +8,7 @@
 } -query {
   orderby:optional
   color_filter_value:optional
-  page:optional
+  page:naturalnum,optional
 } -properties {
   notes:multirow
   context:onevalue
@@ -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]