Index: openacs-4/packages/acs-subsite/www/admin/users/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/users/new.tcl,v
diff -u -N -r1.21 -r1.22
--- openacs-4/packages/acs-subsite/www/admin/users/new.tcl	28 May 2018 18:23:19 -0000	1.21
+++ openacs-4/packages/acs-subsite/www/admin/users/new.tcl	28 May 2018 18:26:11 -0000	1.22
@@ -153,7 +153,7 @@
         set email_verified_p "t"
     }
 
-    set double_click_p [db_string user_exists {}]
+    set double_click_p [db_string user_exists {select count(*) from users where user_id = :user_id}]
     set add_user_email       [template::element::get_value add_user email]
     set add_user_first_names [template::element::get_value add_user first_names]
     set add_user_last_name   [template::element::get_value add_user last_name]