diff --git a/UPolynomial.pas b/UPolynomial.pas
index aa3467d..c4fd23b 100644
--- a/UPolynomial.pas
+++ b/UPolynomial.pas
@@ -88,8 +88,10 @@ begin
       factor := factor * AScaleFactor;
     end;
   end
-  else
-    SetLength(Result.FCoefficients, 0);
+  else begin
+    SetLength(Result.FCoefficients, 1);
+    Result.FCoefficients[0] := TBigInt.Zero;
+  end;
 end;
 
 function TBigIntPolynomial.IsEqualTo(const AOther: TBigIntPolynomial): Boolean;