diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl
index bde3b3e9d31ea83d0693aac81ba73479a1ad54b6..af776bc992e2a571cb9f791e76d3b70ffdc98e84 100644
--- a/perl/exit_strategy.pl
+++ b/perl/exit_strategy.pl
@@ -322,7 +322,7 @@ SQL_PURGED_PLAN
       $dcvalue =~ tr/'/"/;
       eval {$plans->{dc}->execute($ieid, $ieversion, $dckey, $dcvalue)} or die "sql problem detected with $ieid ($ieversion, $dckey, $dcvalue), ", $dbh->errstr;
     }
-    foreach my $delstate (qw(purged deleted)) {
+    foreach my $delstate (qw(purged deleted)) { # we ignore "recovered" state here, because not an extra table
       if ($refhash->{$delstate}) {
         my $delete = $refhash->{$delstate};
         # TODO: call plan plans->{deleted}