diff --git a/lib/test-driver/Machine.pm b/lib/test-driver/Machine.pm
index a832e7cab48..ed43d8d255a 100644
--- a/lib/test-driver/Machine.pm
+++ b/lib/test-driver/Machine.pm
@@ -255,7 +255,7 @@ sub execute {
 }
 
 
-sub mustSucceed {
+sub succeed {
     my ($self, @commands) = @_;
     my $res;
     foreach my $command (@commands) {
@@ -270,6 +270,11 @@ sub mustSucceed {
 }
 
 
+sub mustSucceed {
+    succeed @_;
+}
+
+
 sub waitUntilSucceeds {
     my ($self, $command) = @_;
     retry sub {