Index: openacs-4/packages/acs-authentication/tcl/test/authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/test/authentication-procs.tcl,v
diff -u -r1.1.2.16 -r1.1.2.17
--- openacs-4/packages/acs-authentication/tcl/test/authentication-procs.tcl	27 Nov 2022 18:08:15 -0000	1.1.2.16
+++ openacs-4/packages/acs-authentication/tcl/test/authentication-procs.tcl	11 Oct 2023 16:58:20 -0000	1.1.2.17
@@ -175,6 +175,8 @@
         aa_run_with_teardown \
             -rollback \
             -test_code {
+                set register_authority [auth::get_register_authority]
+
                 # Set all authorities as the register authority one by
                 # one and see that the proc returns the expected
                 # value.
@@ -198,6 +200,7 @@
                     }
                     aa_equals "Register authority '$short_name' should be picked correctly" \
                         $reg_authority_id [auth::get_register_authority]
+
                 }
 
                 # Finally, try a bogus one.
@@ -210,6 +213,15 @@
                     -value $not_exists
                 aa_equals "Non existent register authority '$not_exists' falls back to the local authority" \
                     [auth::authority::local] [auth::get_register_authority]
+
+                #
+                # Put the auhtority back as it was to not pollute
+                # the cache.
+                #
+                parameter::set_from_package_key \
+                    -parameter RegisterAuthority \
+                    -package_key "acs-authentication" \
+                    -value $register_authority
             }
     }