diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 216a2abeb7..02b89227cb 100644
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -325,6 +325,14 @@ sub ModBiblio {
         $record->append_fields($field);
     }
 
+    foreach my $field ($record->fields()) {
+        if (! $field->is_control_field()) {
+            if (scalar($field->subfields()) == 0) {
+                $record->delete_fields($field);
+            }
+        }
+    }
+
     # update biblionumber and biblioitemnumber in MARC
     # FIXME - this is assuming a 1 to 1 relationship between
     # biblios and biblioitems