Index: openacs-4/packages/acs-authentication/tcl/test/local-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/test/Attic/local-procs.tcl,v
diff -u -N -r1.1.2.5 -r1.1.2.6
--- openacs-4/packages/acs-authentication/tcl/test/local-procs.tcl	20 Sep 2022 06:40:30 -0000	1.1.2.5
+++ openacs-4/packages/acs-authentication/tcl/test/local-procs.tcl	30 Sep 2022 16:51:31 -0000	1.1.2.6
@@ -240,8 +240,17 @@
 
         set EmailRegistrationConfirmationToUserP [parameter::get -parameter EmailRegistrationConfirmationToUserP -package_id $subsite_id -default 1]
         set NotifyAdminOfNewRegistrationsP [parameter::get -parameter NotifyAdminOfNewRegistrationsP -package_id $subsite_id -default 0]
-        set NewRegistrationEmailAddress [parameter::get -parameter NewRegistrationEmailAddress -package_id $subsite_id -default [ad_system_owner]]
 
+        set mail_package_id [apm_package_id_from_key acs-mail-lite]
+        set fixed_sender [parameter::get -parameter "FixedSenderEmail" -package_id $mail_package_id]
+        if { $fixed_sender ne ""} {
+            set NewRegistrationEmailAddress $fixed_sender
+        } else {
+            set NewRegistrationEmailAddress [parameter::get -parameter NewRegistrationEmailAddress -package_id $subsite_id -default [ad_system_owner]]
+        }
+
+        set AdminNotificationEmailAddress [parameter::get -parameter NewRegistrationEmailAddress -package_id $subsite_id -default [ad_system_owner]]
+
         set user [acs::test::user::create]
         set user_id [dict get $user user_id]
         set user [acs_user::get -user_id $user_id]
@@ -402,7 +411,7 @@
             aa_true "One notification email was sent by the configured outgoing sender" \
                 {[ad_outgoing_sender] in $::auth_registration_implementations_from_addr}
             aa_true "One notification email was sent to the system administrator" \
-                {$NewRegistrationEmailAddress in $::auth_registration_implementations_to_addr}
+                {$AdminNotificationEmailAddress in $::auth_registration_implementations_to_addr}
 
         } finally {
             parameter::set_value -package_id $subsite_id -parameter EmailRegistrationConfirmationToUserP -value $EmailRegistrationConfirmationToUserP