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.78 -r1.78.2.1
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	23 Nov 2007 11:02:25 -0000	1.78
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	3 Apr 2008 11:58:34 -0000	1.78.2.1
@@ -875,9 +875,9 @@
     }
 
     # Admin approval
+    set system_name [ad_system_name]
     if { [parameter::get -parameter RegistrationRequiresApprovalP -default 0] } {
         set member_state "needs approval"
-        set system_name [ad_system_name]
         set result(account_status) "closed"
         set result(account_message) [_ acs-subsite.Registration_Approval_Notice]
     } else {
@@ -1412,7 +1412,7 @@
 
     ns_sendmail \
         $user(email) \
-        [parameter::get -parameter NewRegistrationEmailAddress -default [ad_system_owner]] \
+        "\"$system_name\" <[parameter::get -parameter NewRegistrationEmailAddress -default [ad_system_owner]]>" \
         [_ acs-subsite.lt_Welcome_to_system_nam] \
         [_ acs-subsite.lt_To_confirm_your_regis]
 }