diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index e5be66f8afc825932c067038aa6b059ff1981216..973aad4afcece83746efd8d6e75b5e5e0d7f3778 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:5);
+	alarm ($controldelay?20:7);
 
         # Wait for 'CNCT'
 	my $input;