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 -r1.53.2.19 -r1.53.2.20
--- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	8 Apr 2021 15:52:08 -0000	1.53.2.19
+++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	4 Oct 2021 10:12:12 -0000	1.53.2.20
@@ -33,7 +33,16 @@
 } {
     upvar $array_name test_vars
 
-    db_1row select_vars {} -column_array test_vars
+    db_1row select_vars {
+        select u.user_id,
+               aa.authority_id,
+               u.username
+        from users u,
+                   auth_authorities aa
+        where u.authority_id = aa.authority_id
+        and aa.short_name = 'local'
+        fetch first 1 rows only
+    } -column_array test_vars
 }
 
 ####