diff --git a/everything.stor b/everything.stor
index 7d0ee56..829a2d9 100644
Binary files a/everything.stor and b/everything.stor differ
diff --git a/fixfailed.pl b/fixfailed.pl
index 0e1c97e..b187f70 100755
--- a/fixfailed.pl
+++ b/fixfailed.pl
@@ -9,12 +9,12 @@ my $data = retrieve 'everything.stor';
 my $module = $ARGV[0];
 
 for my $mod (keys $data->{jobstatus}->%*) {
-  $data->{jobstatus}{$module}{tested} = 1; # set pass to 1
+  $data->{jobstatus}{$mod}{tested} = 1; # set pass to 1
 }
 
 # Remove invalid names from the list
 $data->{modules} = [grep {!m|[/ ]|} $data->{modules}->@*];
 
-print Dumper($data->{modules});
+print Dumper($data);
 
 store $data, 'everything.stor';
diff --git a/modcache.stor b/modcache.stor
index e7ebec9..1407183 100644
Binary files a/modcache.stor and b/modcache.stor differ
diff --git a/run.pl b/run.pl
index 1e1c08d..4f04bd1 100755
--- a/run.pl
+++ b/run.pl
@@ -75,6 +75,7 @@ for my $mod (@modules) {
     print "Testing $mod\n";
     my $status = $jobstatus{$mod}{status} // "";
     unless ($jobstatus{$mod}{tested} == $opt_pass && ($status ne "success" || $status ne 'manual failure') ) {
+        print "STATUS => $status, PASS => $opt_pass, TESTED => ", $jobstatus{$mod}{tested}, "\n";
         my $status = TestCpanInc::test_module($mod);
         $jobstatus{$mod}{tested} = 1;
         $jobstatus{$mod}{status} = $status;