Oops, forgot a file.

diff --git a/src/language/data-io/inpt-pgm.c b/src/language/data-io/inpt-pgm.c
index 2f8d5f3564ee50f452a8fc2be84d07139639e224..71a7b82665cbadb42e11416e07851b1f102441ee 100644 (file)
--- a/src/language/data-io/inpt-pgm.c
+++ b/src/language/data-io/inpt-pgm.c
@@ -201,8 +201,7 @@ input_program_casereader_read (struct casereader *reader UNUSED, void *inp_,
           return false;
         }
 
-      caseinit_init_reinit_vars (inp->init, c);
-      caseinit_init_left_vars (inp->init, c);
+      caseinit_init_vars (inp->init, c);
       inp->restart = trns_chain_execute (inp->trns_chain, inp->restart,
                                          c, &inp->case_nr);
       assert (is_valid_state (inp->restart));