diff --git a/src/ProjLib/ProjLib_ComputeApproxOnPolarSurface.cxx b/src/ProjLib/ProjLib_ComputeApproxOnPolarSurface.cxx
index 4a7abbf1a4..82058dd503 100644
--- a/src/ProjLib/ProjLib_ComputeApproxOnPolarSurface.cxx
+++ b/src/ProjLib/ProjLib_ComputeApproxOnPolarSurface.cxx
@@ -721,6 +721,7 @@ Handle(Adaptor2d_HCurve2d)
 
   Standard_Integer NbOfPnts = 61; 
   GCPnts_QuasiUniformAbscissa QUA(Curve->GetCurve(),NbOfPnts);
+  NbOfPnts = QUA.NbPoints();
   TColgp_Array1OfPnt Pts(1,NbOfPnts);
   TColStd_Array1OfReal Param(1,NbOfPnts);
   Standard_Integer i, j;