diff --git a/algo/core/fasta.cpp b/algo/core/fasta.cpp
index 09ed02ad3586c759cbf1c09876690f936ad075ee..e23ea9477b4300b616955ce2ea102822f261dd05 100644
--- a/algo/core/fasta.cpp
+++ b/algo/core/fasta.cpp
@@ -331,5 +331,7 @@ int approx_nb_sequences_in_fasta(string f)
 
   cout << nb_sequences << " sequences" << endl;
 
+  delete sequences ;
+
   return nb_sequences ;
 }