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.33.2.3 -r1.33.2.4
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	5 Jul 2016 16:35:23 -0000	1.33.2.3
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	14 Jul 2016 17:39:19 -0000	1.33.2.4
@@ -154,7 +154,7 @@
     global permission__permission_p__cache
     if { ![info exists permission__permission_p__cache($party_id,$object_id,$privilege)] } {
         set permission__permission_p__cache($party_id,$object_id,$privilege) [db_string select_permission_p {
-            select acs_permission.permission_p(:object_id, :party_id, :privilege) from dual
+            select acs_permission.permission_p(:object_id, :party_id, :privilege)::int from dual
         }]
     }
     return $permission__permission_p__cache($party_id,$object_id,$privilege)