diff --git a/installer/data/mysql/atomicupdate/bug_22610.perl b/installer/data/mysql/atomicupdate/bug_22610.perl
index b2948dbd5a..b31285f10f 100644
--- a/installer/data/mysql/atomicupdate/bug_22610.perl
+++ b/installer/data/mysql/atomicupdate/bug_22610.perl
@@ -40,7 +40,7 @@ if ( CheckVersion($DBversion) ) {
           accounttype = 'Pay02';
     });
 
-    my $sth = $dbh->prepare( qq{SELECT * FROM accountlines WHERE accounttype LIKE "Pay%" AND accounttype != "Pay" } );
+    my $sth = $dbh->prepare( qq{SELECT * FROM accountlines WHERE accounttype REGEXP '^Pay[[:digit:]]{2}$' } );
     $sth->execute();
     my $seen = {};
     while (my $row = $sth->fetchrow_hashref) {