Index: openacs-4/packages/acs-mail-lite/tcl/bounce-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/Attic/bounce-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-mail-lite/tcl/bounce-procs.tcl	27 Oct 2014 16:39:41 -0000	1.10
+++ openacs-4/packages/acs-mail-lite/tcl/bounce-procs.tcl	27 Jun 2015 17:21:14 -0000	1.11
@@ -129,9 +129,9 @@
             set notification_list [util_ns_set_to_list -set $notification]
             array set user $notification_list
             set user_id $user(user_id)
+	    set href [export_vars -base [ad_url]/register/restore-bounce {user_id}]
+            set body "Dear $user(name),\n\nDue to returning mails from your email account, we currently do not send you any email from our system. To reenable your email account, please visit\n$href"
 
-            set body "Dear $user(name),\n\nDue to returning mails from your email account, we currently do not send you any email from our system. To reenable your email account, please visit\n[ad_url]/register/restore-bounce?[export_vars -url {user_id}]"
-
             send -to_addr $notification_list -from_addr $notification_sender -subject $subject -body $body -valid_email
             ns_log Notice "Bounce notification send to user $user_id"