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)