diff --git a/C4/Breeding.pm b/C4/Breeding.pm
index f82ecf8874..4d26be603b 100644
--- a/C4/Breeding.pm
+++ b/C4/Breeding.pm
@@ -412,6 +412,12 @@ sub Z3950Search {
         );
     } # while nremaining
 
+    #close result sets and connections
+    foreach(0..$s-1) {
+        $oResult[$_]->destroy();
+        $oConnection[$_]->destroy();
+    }
+
     my @servers = ();
     foreach my $id (@id) {
         push @servers, {id => $id};