Index: openacs-4/packages/xotcl-core/tcl/policy-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/policy-procs.tcl,v
diff -u -r1.31 -r1.32
--- openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	11 Sep 2024 06:15:56 -0000	1.31
+++ openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	22 Oct 2024 08:46:25 -0000	1.32
@@ -206,7 +206,7 @@
     return $allowed
   }
 
-  Policy ad_instproc enforce_permissions {-user_id -package_id object:object method} {
+  Policy ad_instproc enforce_permissions {-user_id:integer -package_id:integer object:object method} {
 
     This method checks whether the current user is allowed
     or not to invoke a method based on the given policy and