diff --git a/xt/tt_tidy.t b/xt/tt_tidy.t
index 650bd100c8..895c26be7d 100755
--- a/xt/tt_tidy.t
+++ b/xt/tt_tidy.t
@@ -26,7 +26,7 @@ use Sys::CPU;
 use Koha::Devel::Files;
 
 my $dev_files = Koha::Devel::Files->new( { context => 'tidy' } );
-my @tt_files  = $dev_files->ls_perl_files;
+my @tt_files  = $dev_files->ls_tt_files;
 
 $Test::Strict::TEST_STRICT = 0;