Fix Phi exponential not being unwrapped

1 files changed, 1 insertions, 1 deletions

diff --git a/series.mac b/series.mac
index 7596c6b..aca9715 100644
--- a/series.mac
+++ b/series.mac
@@ -235,7 +235,7 @@ split_exponent(x) := (
 /* Substitute functions by their series expansions and apply substitutions in
 coeffs */
 __expand_term_subst(expr, coeffs) := block(
-  expr : apply1(expr, r_exp_β_val, r_exp_γ_val),
+  expr : unwrap_exp(expr),
   expr : subst(append(main_ansatz, coeffs), expr),
   ev(expr, eval, diff, expand));