X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FStep%2FCompleteRecheck.pm;h=8886f3cd8326a0b65726b68efe693a3d1525e9d6;hb=1444edde2aa4fa709e88c89ec203a6b579a008c7;hp=f74f90c1f6e64e8012436efff129b8ead89ddb0d;hpb=93de8fb00e23098c868bb6b9a0a83bef3ed91b11;p=scpubgit%2FDX.git

diff --git a/lib/DX/Step/CompleteRecheck.pm b/lib/DX/Step/CompleteRecheck.pm
index f74f90c..8886f3c 100644
--- a/lib/DX/Step/CompleteRecheck.pm
+++ b/lib/DX/Step/CompleteRecheck.pm
@@ -12,6 +12,7 @@ sub apply_to {
   my ($self, $ss) = @_;
 
   trace recheck => [ statement => [ [ symbol => 'complete_recheck' ] ] ];
+  trace recheck => [ 'leave_block' ];
 
   my $prop = $self->was_recheck_for;
   my $re_ss = $self->resume_search_state;