diff --git a/doc/decisions/ADR-sqlite.asciidoc b/doc/decisions/ADR-sqlite.asciidoc
index cbba0d5f94fc6490596cf4efbe3ecbfde3765053..4934b54c73e19ba3f199c51dc3e87b8a3449919e 100644
--- a/doc/decisions/ADR-sqlite.asciidoc
+++ b/doc/decisions/ADR-sqlite.asciidoc
@@ -38,7 +38,8 @@ Bisher wird ein Script generiert, welches SQL für eine PostgreSQL-Datenbank erz
 Mit der Nutzung von SQLite hätte man zum einen sofort eine lauffähige Datenbank, die nicht erst administriert werden muss. Zum anderen erspart man sich den Zwischenschritt der SQL-Script Generierung.
 
 // Aus ersten Tests auf Testsystem vom 2021-07-22:
-// 15.742 IEs, DB ist 27MB groß, 791s zum Erzeugen
+// 15.742 IEs, DB ist 33MB groß, 32s zum Erzeugen
+/
 
 
 == Konsequenzen
diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl
index f90c4116f40114aa0062f3807801eb6fd276a966..0c13d5eaf4431a3127376d1a4fb6d8bfc8420d37 100644
--- a/perl/exit_strategy.pl
+++ b/perl/exit_strategy.pl
@@ -231,11 +231,14 @@ SQL_DC_PLAN
 # add INDEX and other TRICKs to increase performance
 ###############################################################################
 sub write_index_creation($dbh) {
-  my $sql=<<"SQL_INDEX";
+  my $sql1=<<"SQL_INDEX1";
   CREATE UNIQUE INDEX aip_index on aip (ie_id);
-SQL_INDEX
-  my $sth = $dbh->prepare($sql);
-  $sth->execute() or die "sql problem detected", $dbh->errstr;
+SQL_INDEX1
+  my $sql2=<<"SQL_INDEX2";
+  CREATE UNIQUE INDEX sourcedata_index on sourcedatafile (aip_id, name);
+SQL_INDEX2
+  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;
   return 1;
 }