diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index 973aad4afcece83746efd8d6e75b5e5e0d7f3778..73fabcca4b99401710e607957341232d05c2aca6 100644
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -585,7 +585,7 @@ sub PASV_command {
         local $SIG{ALRM} = sub { die "alarm\n" };
 
 	# assume swift operations unless explicitly slow
-	alarm ($controldelay?20:7);
+	alarm ($controldelay?20:10);
 
         # Wait for 'CNCT'
 	my $input;