X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fdata%2Fcasewriter.c;h=7631d776d3d2ac59cf336eccde48446aa8832b80;hb=26ff6fce95fb38f0986017dd922c36d4b1b239c7;hp=f7760eca04a5ae5d1b78bf45c46c92676b63a0c7;hpb=b5c82cc9aabe7e641011130240ae1b2e84348e23;p=pspp-builds.git

diff --git a/src/data/casewriter.c b/src/data/casewriter.c
index f7760eca..7631d776 100644
--- a/src/data/casewriter.c
+++ b/src/data/casewriter.c
@@ -99,6 +99,8 @@ casewriter_make_reader (struct casewriter *writer)
 {
   struct casereader *reader = writer->class->convert_to_reader (writer, writer->aux);
   taint_propagate (writer->taint, casereader_get_taint (reader));
+
+  caseproto_unref (writer->proto);
   taint_destroy (writer->taint);
   free (writer);
   return reader;