diff --git a/C4/Record.pm b/C4/Record.pm
index 3b073987fc..8e09adf2c3 100644
--- a/C4/Record.pm
+++ b/C4/Record.pm
@@ -362,7 +362,7 @@ sub marcrecord2csv {
 
     # Getting the record
     my $record = GetMarcBiblio($biblio);
-
+    next unless $record;
     # Getting the framework
     my $frameworkcode = GetFrameworkCode($biblio);
 
diff --git a/opac/opac-basket.pl b/opac/opac-basket.pl
index 9562d2f077..c453c87d22 100755
--- a/opac/opac-basket.pl
+++ b/opac/opac-basket.pl
@@ -62,6 +62,7 @@ foreach my $biblionumber ( @bibs ) {
 
     my $dat              = &GetBiblioData($biblionumber);
     my $record           = &GetMarcBiblio($biblionumber);
+    next unless $record;
     my $marcnotesarray   = GetMarcNotes( $record, $marcflavour );
     my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour );
     my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
diff --git a/opac/opac-downloadcart.pl b/opac/opac-downloadcart.pl
index 53d1b77fc9..ff1b58f49c 100755
--- a/opac/opac-downloadcart.pl
+++ b/opac/opac-downloadcart.pl
@@ -66,6 +66,7 @@ if ($bib_list && $format) {
 	foreach my $biblio (@bibs) {
 
 	    my $record = GetMarcBiblio($biblio);
+        next unless $record;
 
 	    switch ($format) {
 		case "iso2709" { $output .= $record->as_usmarc(); }
diff --git a/opac/opac-downloadshelf.pl b/opac/opac-downloadshelf.pl
index 5a3fb1fa1e..d73a8e72bd 100755
--- a/opac/opac-downloadshelf.pl
+++ b/opac/opac-downloadshelf.pl
@@ -70,6 +70,7 @@ if ($shelfid && $format) {
 	    my $biblionumber = $biblio->{biblionumber};
 
 	    my $record = GetMarcBiblio($biblionumber);
+        next unless $record;
 
 	    switch ($format) {
 		case "iso2709" { $output .= $record->as_usmarc(); }