diff --git a/digger.pl b/digger.pl
index b3c6c77..4a347b2 100755
--- a/digger.pl
+++ b/digger.pl
@@ -48,7 +48,7 @@
 
 emit("Looking at bodies ".join(', ', @body_names));
 
-exit(0) unless grep { !($_->{work}{end}) || Client::parse_time($_->{work}{end}) < time() } values(%arches);
+exit(0) unless $noaction || grep { $_ && !($_->{work}{end} && Client::parse_time($_->{work}{end}) >= time()) } values(%arches);
 
 my %glyphs;
 for my $body_id (@body_ids) {