2 files changed, 3 insertions, 0 deletions
diff --git a/parser.c b/parser.c
index 368ecebd..85b80202 100644
--- a/parser.c
+++ b/parser.c
@@ -665,6 +665,7 @@ static val lisp_parse_impl(val self, enum prime_parser prime,
   for (;;) {
     int gc = gc_state(0);
     parse(pi, if3(std_error != std_null, name, lit("")), prime);
+    mut(parser);
     gc_state(gc);
 
     if (pi->syntax_tree == nao && pi->errors == 0 && !pi->eof)
@@ -823,6 +824,7 @@ val txr_parse(val source_in, val error_stream,
 
   uw_unwind {
     dyn_env = saved_dyn;
+    mut(parser_obj);
     gc_state(gc);
     if (!loading)
       uw_release_deferred_warnings();
diff --git a/txr.c b/txr.c
index e5396b61..90d6d84e 100644
--- a/txr.c
+++ b/txr.c
@@ -1068,6 +1068,7 @@ int txr_main(int argc, char **argv)
     val parser_obj = ensure_parser(parse_stream, spec_file_str);
     parser_t *parser = parser_get_impl(prog_string, parser_obj);
     parse_once_noerr(parse_stream, spec_file_str);
+    mut(parser_obj)
     gc_state(gc);
 
     close_stream(parse_stream, nil);