X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdata-io%2Flist.c;h=c98b6f9a5218dce96f157a8698af1a84857ec12e;hb=fb5ee794ece0f21f0b52ee41e66a8b79c159bcf2;hp=d84746506b9cb659e325feada4cfea9aa7a9fa93;hpb=29917c4f5908454803e663d2ad78bca4bc35e805;p=pspp

diff --git a/src/language/data-io/list.c b/src/language/data-io/list.c
index d84746506b..c98b6f9a52 100644
--- a/src/language/data-io/list.c
+++ b/src/language/data-io/list.c
@@ -131,7 +131,7 @@ list_execute (const struct lst_cmd *lcmd, struct dataset *ds)
   ok = casegrouper_destroy (grouper);
   ok = proc_commit (ds) && ok;
 
-  subcase_destroy (&sc);
+  subcase_uninit (&sc);
   free (lcmd->v_variables);
 
   return ok ? CMD_SUCCESS : CMD_CASCADING_FAILURE;