Index: openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl,v
diff -u -r1.63.6.1 -r1.63.6.2
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	27 Aug 2013 11:01:48 -0000	1.63.6.1
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	6 Sep 2013 16:01:47 -0000	1.63.6.2
@@ -1258,10 +1258,10 @@
     Example usage:
     <pre>
     if { [ad_form_new_p -key item_id] } {
-        ad_require_permission $package_id create
+        permission::require_permission -object_id $package_id -privilege create
         set page_title "New Item"
     } else {
-        ad_require_permission $item_id write
+        permission::require_permission -object_id $item_id -privilege write
         set page_title "Edit Item"
     }