2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/adduserdrake b/perl-install/standalone/adduserdrake
index a2d380766..b449ef52b 100755
--- a/perl-install/standalone/adduserdrake
+++ b/perl-install/standalone/adduserdrake
@@ -17,7 +17,7 @@ if (my @l = grep { ! /^-/ } @ARGV) {
     $users = [ map { { name => $_, realname => $_ } } @l ];
 } else {
     $in = 'interactive'->vnew('su');
-    any::ask_users($in, $users, security::level::get(), []);
+    any::ask_user($in, $users, security::level::get(), needauser => 1);
 }
 
 any::add_users($users, authentication::get());
diff --git a/perl-install/standalone/finish-install b/perl-install/standalone/finish-install
index 97ceb1fab..967bdacf6 100755
--- a/perl-install/standalone/finish-install
+++ b/perl-install/standalone/finish-install
@@ -86,7 +86,7 @@ sub ask_authentication() {
 
 sub ask_users() {
     my $users = []; 
-    any::ask_users($in, $users, $security, []);
+    any::ask_user($in, $users, $security);
     my $old_user = $conf{USER_RENAME_FROM};
     if (@$users && $old_user) {
       $users->[0]{rename_from} = $old_user;