Separator expression in @(cat) evaluated as Lisp.

* match.c (v_cat): Use tleval_144 instead of txeval.

1 files changed, 1 insertions, 1 deletions

diff --git a/match.c b/match.c
index af3a0843..8470f29c 100644
--- a/match.c
+++ b/match.c
@@ -3284,7 +3284,7 @@ static val v_cat(match_files_ctx *c)
   } else {
     val existing = tx_lookup_var(sym, c->bindings);
     if (existing) {
-      val sep = if3(sep_form, txeval(specline, sep_form, c->bindings),
+      val sep = if3(sep_form, tleval_144(specline, sep_form, c->bindings),
                     lit(" "));
       set(cdr_l(existing), cat_str(flatten(cdr(existing)), sep));
     } else {