diff --git a/bin/snippy-vcf_extract_subs b/bin/snippy-vcf_extract_subs
index 4f9a633..5d9045d 100755
--- a/bin/snippy-vcf_extract_subs
+++ b/bin/snippy-vcf_extract_subs
@@ -25,7 +25,7 @@ my @keep_info = split m/,/, $info_tags;
 my %keep_info = (map { $_ => 1 } @keep_info);
 
 my @keep_format = split m/,/, $format_tags;
-my %keep_format = (map { $_ => 1 } @keep_info);
+my %keep_format = (map { $_ => 1 } @keep_format);
 
 # . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
 # Main
diff --git a/perl5/Snippy/Version.pm b/perl5/Snippy/Version.pm
index a01e919..dc5c4a7 100644
--- a/perl5/Snippy/Version.pm
+++ b/perl5/Snippy/Version.pm
@@ -4,7 +4,7 @@ use base Exporter;
 @EXPORT_OK = qw(version);
 %EXPORT_TAGS = ( 'all' =>  [ @EXPORT_OK ] );
 
-our $VERSION = "4.0.4";
+our $VERSION = "4.0.5";
 
 use strict;
 use File::Basename;