diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 56cd94e0d0..5508cbebeb 100644
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -1996,6 +1996,7 @@ sub TransformKohaToMarc {
     my $db_to_marc = C4::Context->marcfromkohafield;
     while ( my ($name, $value) = each %$hash ) {
         next unless my $dtm = $db_to_marc->{''}->{$name};
+        next unless ( scalar( @$dtm ) );
         my ($tag, $letter) = @$dtm;
         foreach my $value ( split(/\s?\|\s?/, $value, -1) ) {
             if ( my $field = $record->field($tag) ) {