diff --git a/misc/maintenance/pseudonymize_statistics.pl b/misc/maintenance/pseudonymize_statistics.pl
index 1e51a1b498..0da03ce9c3 100755
--- a/misc/maintenance/pseudonymize_statistics.pl
+++ b/misc/maintenance/pseudonymize_statistics.pl
@@ -45,7 +45,13 @@ unless ( C4::Context->preference('Pseudonymization') ) {
 $before //= format_sqldatetime( dt_from_string(), 'sql', undef, 1 );
 print "Searching for statistics before $before\n" if $verbose;
 
-my $statistics = Koha::Statistics->search( { datetime => { '<=' => $before } } );
+my $statistics = Koha::Statistics->search(
+    {
+        datetime       => { '<='  => $before },
+        type           => { '-in' => \@Koha::Statistic::pseudonymization_types },
+        borrowernumber => { '!='  => undef }
+    }
+);
 print $statistics->count() . " statistics found\n" if $verbose;
 
 
@@ -67,7 +73,7 @@ if ( !$confirm ) {
 }
 
 while ( my $statistic = $statistics->next ) {
-    $statistic->pseudonymize();
+    Koha::PseudonymizedTransaction->new_from_statistic($statistic)->store();
 }
 
 print $statistics->count() . " statistics pseudonymized\n" if $verbose;