diff --git a/UPolynomialRoots.pas b/UPolynomialRoots.pas
index a4b029a..b2636f8 100644
--- a/UPolynomialRoots.pas
+++ b/UPolynomialRoots.pas
@@ -112,11 +112,11 @@ begin
   Result := TIsolatingIntervals.Create;
   stack := TWorkStack.Create;
 
-  n := item.P.Degree;
   item.C := 0;
   item.K := 0;
   item.P := APolynomial.ScaleVariable(ABound);
   stack.Push(item);
+  n := item.P.Degree;
 
   while stack.Count > 0 do
   begin