diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl
index 9c3fc8e47efca6e56f0fd47593be70b83f28a57e..ebd984e08a16eb9f6b039637ca294ad487ea1796 100644
--- a/perl/exit_strategy.pl
+++ b/perl/exit_strategy.pl
@@ -270,12 +270,6 @@ sub write_addsql ($dbh, $plans, $refhash) {
       my $reason = $purge->{'reason'};
       my $date = $purge->{'date'};
       my $authorized_by = $purge->{'authorized_by'};
-      if (! defined $reason or length($reason) < 2) {
-        use Data::Printer;
-        p( $purge );
-        p($iefile);
-        die;
-      }
       $plans->{deleted}->execute($ieid, $ieversion, $state, $reason, $date, $authorized_by) or die "sql problem detected", $dbh->errstr;
     }
   }
@@ -482,7 +476,6 @@ sub check_if_db_conform ($string, $filename) {
     ############################################
     my $is_deleted = has_purged_entries($xp, $amdsec);
     if ($is_deleted) {
-      print "FOUND DELETED\n";
       my @purged_states = @{ get_purged_states($xp, $amdsec) };
       foreach my $idx (0 .. $#purged_states) {
         $ret->{'purged'}->[$idx]->{state} = $purged_states[$idx];