Index: openacs-4/packages/acs-authentication/tcl/test/authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/test/Attic/authentication-procs.tcl,v
diff -u -r1.1.2.14 -r1.1.2.15
--- openacs-4/packages/acs-authentication/tcl/test/authentication-procs.tcl	7 Oct 2021 12:37:46 -0000	1.1.2.14
+++ openacs-4/packages/acs-authentication/tcl/test/authentication-procs.tcl	10 Feb 2022 21:33:44 -0000	1.1.2.15
@@ -37,7 +37,7 @@
                           and u.user_id = m.member_id
                           and u.member_state = 'approved'
                           and u.authority_id <> :authority_id
-                          and acs_permission.permission_p(amo.object_id, u.user_id, 'admin')
+                          and acs_permission.permission_p(amo.object_id, u.user_id, 'admin') = 't'
                         )
                     }]
                     aa_equals "Proc should return $expected for authority $authority_id" \
@@ -62,7 +62,7 @@
                     and p.grantee_id = m.party_id
                     and u.user_id = m.member_id
                     and u.member_state = 'approved'
-                    and acs_permission.permission_p(amo.object_id, u.user_id, 'admin')
+                    and acs_permission.permission_p(amo.object_id, u.user_id, 'admin') = 't'
                 }] {
                     permission::revoke \
                         -party_id $user_id \