X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fdata%2Fcasegrouper.c;h=8d0b081280f0e6a312b4c58c717b1bf3cbbad171;hb=97f9b8ad137e333af9b3c767556d28dfda93a461;hp=86788ba7a3bc5afcbd280ad2be920685a48e76db;hpb=9e0e4996fad6563f0a1ce628b80db5c23ef8279e;p=pspp

diff --git a/src/data/casegrouper.c b/src/data/casegrouper.c
index 86788ba7a3..8d0b081280 100644
--- a/src/data/casegrouper.c
+++ b/src/data/casegrouper.c
@@ -89,7 +89,8 @@ casegrouper_get_next_group (struct casegrouper *grouper,
           return false;
         }
 
-      writer = autopaging_writer_create (casereader_get_value_cnt (grouper->reader));
+      writer = autopaging_writer_create (
+        casereader_get_proto (grouper->reader));
       case_ref (group_case);
       casewriter_write (writer, group_case);
 
@@ -99,6 +100,7 @@ casegrouper_get_next_group (struct casegrouper *grouper,
           case_unref (casereader_read (grouper->reader));
           casewriter_write (writer, tmp);
         }
+      case_unref (tmp);
       case_unref (group_case);
 
       *reader = casewriter_make_reader (writer);