Index: openacs-4/packages/acs-admin/www/users/user-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-add-3.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-admin/www/users/user-add-3.tcl	12 Jul 2009 01:08:22 -0000	1.6
+++ openacs-4/packages/acs-admin/www/users/user-add-3.tcl	27 Oct 2014 16:38:58 -0000	1.7
@@ -19,12 +19,12 @@
 set admin_user_id [ad_conn user_id]
 
 set context [list [list "./" "Users"] "New user notified"]
-set export_vars [export_url_vars user_id]
+set export_vars [export_vars -url {user_id}]
 
 set admin_email [db_string get_admin_email {}]
 set subject "You have been added as a user to [ad_system_name] at [ad_url]"
 
-if [catch {acs_mail_lite::send -send_immediately -to_addr $email -from_addr $admin_email -subject $subject -body $message} errmsg] {
+if {[catch {acs_mail_lite::send -send_immediately -to_addr $email -from_addr $admin_email -subject $subject -body $message} errmsg]} {
     ad_return_error "Mail Failed" "<p>The system was unable to send email.  Please notify the user personally.  This problem is probably caused by a misconfiguration of your email system.  Here is the error:</p>
 <div><code>
 [ad_quotehtml $errmsg]