diff --git a/jtrts.dat b/jtrts.dat
index 0324389..ee14ad8 100644
--- a/jtrts.dat
+++ b/jtrts.dat
@@ -342,5 +342,4 @@
 (base),(X),(jumbo),10000,gost,pw,gost_tst.in,gost,N,X,(1500),(1500)
 (base),(X),(jumbo),10000,gost,pw,gost_raw_tst.in,gost,Y,X,(1500),(1500)
 
-(base)(sha)(sha1),(X),(jumbo),10000,hmac-sha1,pw,hmacSHA1_tst.in,hmac-sha1,Y
-,X,(1500),(1500)
\ No newline at end of file
+(base)(sha)(sha1),(X),(jumbo),10000,hmac-sha1,pw,hmacSHA1_tst.in,hmac-sha1,Y,X,(1500),(1500)
diff --git a/jtrts.pl b/jtrts.pl
index f9c7ef4..8c98234 100755
--- a/jtrts.pl
+++ b/jtrts.pl
@@ -533,12 +533,12 @@ sub process {
 		unless (-e $ar[6]) { next LINE; }
 		$done_cnt = $done_cnt + 1;
 		if ($ar[3] != 10000) {
-			open (FILE, "<".substr($dict_name,3));
+			open (FILE, "<".substr($dict_name,3)) or die $!;
 			my @lines = <FILE>;
 			close(FILE);
 			$dict_name = "--wordlist=$ar[5]-$ar[3].dic";
 			$dict_name_ex = substr($dict_name,3);
-			open (FILE, ">".substr($dict_name,3));
+			open (FILE, ">".substr($dict_name,3)) or die $!;
 			my $i;
 			for ($i = 0; $i < $ar[3]; $i += 1) {
 				my $line = shift(@lines);