diff --git a/C4/Bookseller.pm b/C4/Bookseller.pm
index 3e1454f59b..c53919f5e0 100644
--- a/C4/Bookseller.pm
+++ b/C4/Bookseller.pm
@@ -269,8 +269,7 @@ sub DelBookseller {
     my $id  = shift;
     my $dbh = C4::Context->dbh;
     my $sth = $dbh->prepare('DELETE FROM aqbooksellers WHERE id=?');
-    $sth->execute($id);
-    return;
+    return $sth->execute($id);
 }
 
 1;
diff --git a/t/db_dependent/Bookseller.t b/t/db_dependent/Bookseller.t
index 71307f1249..fdac9c2542 100644
--- a/t/db_dependent/Bookseller.t
+++ b/t/db_dependent/Bookseller.t
@@ -2,7 +2,7 @@
 
 use Modern::Perl;
 
-use Test::More tests => 53;
+use Test::More tests => 54;
 use C4::Context;
 use Koha::DateUtils;
 use DateTime::Duration;
@@ -104,8 +104,7 @@ is( scalar( C4::Bookseller::GetBookSeller('') ),
 
 #Test DelBookseller
 my $del = C4::Bookseller::DelBookseller($id_supplier1);
-#FIXME: DelBookSeller always returns undef (if it works or not)
-#is( $del, 1, "DelBookseller returns 1 - 1 supplier has been deleted " );
+is( $del, 1, "DelBookseller returns 1 - 1 supplier has been deleted " );
 is( C4::Bookseller::GetBookSellerFromId($id_supplier1),
     undef, "Supplier1  has been deleted - id_supplier1 doesnt exist anymore" );