CD: Fix a bug and add a regression test.

[pspp-builds.git] / src / language / utilities / cd.c

diff --git a/src/language/utilities/cd.c b/src/language/utilities/cd.c
index cae84eb3c46b43e6f06bf2b3bb43e941a517bdd4..d28c0a30aa126d4a6b894e2e511a0d3607f21f47 100644 (file)
--- a/src/language/utilities/cd.c
+++ b/src/language/utilities/cd.c
@@ -48,6 +48,7 @@ cmd_cd (struct lexer *lexer, struct dataset *ds UNUSED)
     }
 
   free (path);
+  lex_get (lexer);
 
   return CMD_SUCCESS;