Index: openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl,v
diff -u -r1.47.2.9 -r1.47.2.10
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	18 Feb 2022 09:42:51 -0000	1.47.2.9
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	18 Feb 2022 11:36:10 -0000	1.47.2.10
@@ -162,7 +162,7 @@
     # We have a per-request cache here
     return [acs::per_request_cache eval -key acs-tcl.permission_p__cache-$party_id,$object_id,$privilege {
         db_string select_permission_p {
-            select cast(acs_permission.permission_p(:object_id, :party_id, :privilege) as integer) from dual
+            select acs_permission.permission_p(:object_id, :party_id, :privilege) from dual
         }
     }]
 }