*** empty log message ***

diff --git a/src/GEOMImpl/GEOMImpl_PipeDriver.cxx b/src/GEOMImpl/GEOMImpl_PipeDriver.cxx
index 84d0237048bb0d2eb084e5c0f4a0dd370d24a315..214143dfe403ca96f59a38478804d2be155d92e1 100644 (file)
--- a/src/GEOMImpl/GEOMImpl_PipeDriver.cxx
+++ b/src/GEOMImpl/GEOMImpl_PipeDriver.cxx
@@ -203,7 +203,7 @@ Standard_Integer GEOMImpl_PipeDriver::Execute(TFunction_Logbook& log) const
     Standard_Integer nbShapes = aSeqBases.Length();
     Standard_Integer step = nbShapes/nbBases;
     
-    if(nbShapes < nbBases || fmod(nbShapes,nbBases))
+    if(nbShapes < nbBases || fmod((double)nbShapes, (double)nbBases))
     {
       if(aCI) delete aCI;
       Standard_ConstructionError::Raise("Invalid sections were specified for building pipe");