X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fdata%2Fcasewriter.c;h=7631d776d3d2ac59cf336eccde48446aa8832b80;hb=7c6e9646a94126a410fab4d00714396b98923230;hp=f7760eca04a5ae5d1b78bf45c46c92676b63a0c7;hpb=5c3291dc396b795696e94f47780308fd7ace6fc4;p=pspp

diff --git a/src/data/casewriter.c b/src/data/casewriter.c
index f7760eca04..7631d776d3 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;