Index: openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl,v
diff -u -N -r1.53.2.10 -r1.53.2.11
--- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	3 Jul 2020 07:53:44 -0000	1.53.2.10
+++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	1 Sep 2020 14:18:41 -0000	1.53.2.11
@@ -19,7 +19,11 @@
 } {
     set context_root_id [acs_magic_object security_context_root]
 
-    return [db_string select_user_id {}]
+    return [db_string select_user_id {
+        select min(user_id)
+          from users
+        where acs_permission.permission_p(:context_root_id, user_id, 'admin')
+    }]
 }
 
 ad_proc -private auth::test::get_password_vars {