diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl
index 9b115e1ce12465f41b1094f4fb2ea6cca6b9183a..56c6e59fa29f14afab5e4a543a3b2c6be83c2ebb 100644
--- a/perl/exit_strategy.pl
+++ b/perl/exit_strategy.pl
@@ -324,17 +324,22 @@ 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 ASC);
 SQL_INDEX1
   my $sql2=<<"SQL_INDEX2";
   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);
+  CREATE INDEX delete_index ON deleted (aip_id ASC);
 SQL_INDEX3
+  my $sql4=<<"SQL_INDEX4";
+  CREATE INDEX aip_index2 ON aip (lza_id ASC);
+SQL_INDEX4
+
   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;
+  my $sth3 = $dbh->prepare($sql3); $sth3->execute() or die "sql problem detected", $dbh->errstr;
+  my $sth4 = $dbh->prepare($sql4); $sth4->execute() or die "sql problem detected", $dbh->errstr;
   return 1;
 }