Fixes for bugs/warts found in debug mode compile (bug #17092).

[pspp-builds.git] / src / data / procedure.c

diff --git a/src/data/procedure.c b/src/data/procedure.c
index a2ca8b23ee85f8b51285a6c8f61c422911f06638..4dcce32b0f8ec8ac467423d52c1d25ebf4cdb951 100644 (file)
--- a/src/data/procedure.c
+++ b/src/data/procedure.c
@@ -219,7 +219,8 @@ internal_procedure (bool (*case_func) (const struct ccase *, void *),
   wc_data.case_func = case_func;
   wc_data.aux = aux;
   create_trns_case (&wc_data.trns_case, default_dict);
-  case_create (&wc_data.sink_case, dict_get_next_value_idx (default_dict));
+  case_create (&wc_data.sink_case,
+               dict_get_compacted_value_cnt (default_dict));
   wc_data.cases_written = 0;
 
   ok = proc_source->class->read (proc_source,