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.37 -r1.38
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	18 Sep 2003 17:12:17 -0000	1.37
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	19 Sep 2003 15:01:18 -0000	1.38
@@ -1176,8 +1176,8 @@
             set result(account_message) [_ acs-subsite.lt_Sorry_but_it_seems_th]
         }
         deleted {  
-            set result(account_message) \
-                "[_ acs-subsite.Welcome_Back_1] <a href=\"[export_vars -base "restore-user" { user_id }]\">[_ acs-subsite.to_site_link_1]</a>."
+            set restore_url [export_vars -base "restore-user" { return_url }]
+            set result(account_message) [_ acs-subsite.Account_closed]
         }
         rejected - "needs approval" {
             set result(account_message) \