diff --git a/modules/Bio/EnsEMBL/Pipeline/FASTA/ConcatFiles.pm b/modules/Bio/EnsEMBL/Pipeline/FASTA/ConcatFiles.pm
index e8454fcb00509842ddd0d2e475e13c17e7cf8c5e..8f9959f2ce67810d0c0ef83edd65ee2ee25ae314 100644
--- a/modules/Bio/EnsEMBL/Pipeline/FASTA/ConcatFiles.pm
+++ b/modules/Bio/EnsEMBL/Pipeline/FASTA/ConcatFiles.pm
@@ -120,7 +120,12 @@ sub write_output {
 sub get_dna_files {
   my ($self) = @_;
   my $path = $self->fasta_path('dna');
-  my $regex = $self->param($self->param('data_type'))->{regex};
+  my $data_type = $self->param('data_type'); 
+  my $regex_hash = $self->param($data_type); 
+  if(! $regex_hash ) {
+    throw "We do not have an entry for the data_type $data_type in our regex lookup hash. Edit this module";
+  }
+  my $regex = $regex_hash->{regex};
   my $filter = sub {
     my ($filename) = @_;
     return ($filename =~ $regex && $filename !~ /\.toplevel\./) ? 1 : 0;