diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl
index 12363c2d9843c6969e94e12011911a36bdc42c3b..9b115e1ce12465f41b1094f4fb2ea6cca6b9183a 100644
--- a/perl/exit_strategy.pl
+++ b/perl/exit_strategy.pl
@@ -324,13 +324,17 @@ SQL_DELETE_PLAN
 ###############################################################################
 sub write_index_creation($dbh) {
   my $sql1=<<"SQL_INDEX1";
-  CREATE UNIQUE INDEX aip_index on aip (ie_id, version);
+  CREATE UNIQUE INDEX aip_index ON aip (ie_id, version);
 SQL_INDEX1
   my $sql2=<<"SQL_INDEX2";
-  CREATE UNIQUE INDEX sourcedata_index on sourcedatafile (aip_id, name);
+  CREATE UNIQUE INDEX sourcedata_index ON sourcedatafile (aip_id, name);
 SQL_INDEX2
+  my $sql3=<<"SQL_INDEX3";
+  CREATE UNIQUE INDEX delete_index ON deleted (aip_id);
+SQL_INDEX3
   my $sth1 = $dbh->prepare($sql1); $sth1->execute() or die "sql problem detected", $dbh->errstr;
   my $sth2 = $dbh->prepare($sql2); $sth2->execute() or die "sql problem detected", $dbh->errstr;
+  my $sth3 = $dbh->prepare($sql3); $sth2->execute() or die "sql problem detected", $dbh->errstr;
   return 1;
 }