0022051: [CEA 744] SALOME crashes when calliing "BasicProperties" on a sphere degener...

diff --git a/src/GEOMBase/GEOMBase.cxx b/src/GEOMBase/GEOMBase.cxx
index 1df7a528cba02c7a6aebb79747504b72280af045..0e13b280ebb307c22435f9c8d651e3f78dedcf80 100644 (file)
--- a/src/GEOMBase/GEOMBase.cxx
+++ b/src/GEOMBase/GEOMBase.cxx
@@ -512,7 +512,7 @@ TopoDS_Shape GEOMBase::CreateArrowForLinearEdge( const TopoDS_Shape& shape )
     try {
       Standard_Real first, last;
       Handle(Geom_Curve) curv = BRep_Tool::Curve( TopoDS::Edge( shape ), first, last );
-      if ( curv->IsCN(1) ) {
+      if ( !curv.IsNull() && curv->IsCN(1) ) {
         const Standard_Real param = ( first+last ) / 2.0;
         gp_Pnt middleParamPoint;
         gp_Vec V1;