Index: openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl,v
diff -u -r1.114.2.8 -r1.114.2.9
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	3 Jul 2020 07:53:44 -0000	1.114.2.8
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	1 Sep 2020 17:09:32 -0000	1.114.2.9
@@ -1767,7 +1767,7 @@
     # admin rights on the magic object 'security_context_root')?
     #
     return [db_string admins_left_p {
-        select exists (select 1
+        select case when exists (select 1
         from acs_permissions p,
              party_approved_member_map m,
              acs_magic_objects amo,
@@ -1778,7 +1778,8 @@
         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')) from dual
+        and acs_permission.permission_p(amo.object_id, u.user_id, 'admin')) then 1 else 0 end
+        from dual
     }]
 }