diff --git a/installer/data/mysql/atomicupdate/bug_13766_fix_ean.perl b/installer/data/mysql/atomicupdate/bug_13766_fix_ean.perl
index bfd7dd1bd5..21d1fc1639 100644
--- a/installer/data/mysql/atomicupdate/bug_13766_fix_ean.perl
+++ b/installer/data/mysql/atomicupdate/bug_13766_fix_ean.perl
@@ -1,11 +1,12 @@
 $DBversion = "XXX";
 if(CheckVersion($DBversion)) {
     # Drop index that might exist because of bug 5337
-    my $temp = $dbh->selectall_arrayref(q{
-        SHOW INDEXES FROM biblioitems WHERE key_name = 'ean' });
-    if( @$temp > 0 ) {
+    if( index_exists('biblioitems', 'ean')) {
         $dbh->do(q{ ALTER TABLE biblioitems DROP INDEX ean });
     }
+    if( index_exists('deletedbiblioitems', 'ean')) {
+        $dbh->do(q{ ALTER TABLE deletedbiblioitems DROP INDEX ean });
+    }
 
     # Change data type of column
     $dbh->do(q{ ALTER TABLE biblioitems MODIFY COLUMN ean MEDIUMTEXT default NULL });