1 files changed, 1 insertions, 2 deletions
diff --git a/series.mac b/series.mac
index 14849d7..e4a42c3 100644
--- a/series.mac
+++ b/series.mac
@@ -247,8 +247,7 @@ __expand_term_prod(expr, coeffs) := block(
 Split product factors into list substitute series expansions, substitute
 coefficients and finally multiply only upto expansion_order.
 */
-expand_term(expr, coeffs) := block(
-  [tmp],
+expand_term(expr, coeffs) := (
   if atom(expr) then (
     apply1(__expand_term_subst(wrap_exp(expr), coeffs), r_simp_small))
   /* TODO: Recursive call instead of error */