diff --git a/cLTD.m b/cLTD.m
index 269723d..3b04d74 100644
--- a/cLTD.m
+++ b/cLTD.m
@@ -886,7 +886,11 @@ id Diff(k`i',n1?{>0})*k`i'^n3? =
 
 
 (* ::Input::Initialization:: *)
-EvalcLTD[cLTDexpr_,numerics_]:=cLTDexpr[[1]]/.(cLTDexpr[[2]]/.numerics)/.numerics
+EvalcLTD[cLTDexpr_,numerics_]:=Module[{subs=Rule@@@Transpose[{#,#/.cLTDexpr[[2]]/.numerics}]&@Variables[cLTDexpr[[1]]]},
+Block[Evaluate[First/@subs],
+subs/.Rule->Set;cLTDexpr[[1]]
+]
+]
 
 
 (* ::Input::Initialization:: *)