From dc0d851998bd437415edaac751b322d4d090935d Mon Sep 17 00:00:00 2001
From: mzn <mzn@opencascade.com>
Date: Tue, 15 Mar 2005 12:34:12 +0000
Subject: [PATCH] Fix for PAL8380(Can't create a Group of Nodes from a group on
 geometry).

---
 src/SMESHDS/SMESHDS_Mesh.cxx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/SMESHDS/SMESHDS_Mesh.cxx b/src/SMESHDS/SMESHDS_Mesh.cxx
index 416da54aa..d3e5d6bb8 100644
--- a/src/SMESHDS/SMESHDS_Mesh.cxx
+++ b/src/SMESHDS/SMESHDS_Mesh.cxx
@@ -855,7 +855,7 @@ int SMESHDS_Mesh::AddCompoundSubmesh(const TopoDS_Shape& S,
                                      TopAbs_ShapeEnum    type)
 {
   int aMainIndex = 0;
-  if ( IsGroupOfSubShapes( S ))
+  if ( IsGroupOfSubShapes( S ) || (S.ShapeType() == TopAbs_VERTEX && myIndexToShape.Contains(S)) )
   {
     aMainIndex = myIndexToShape.Add( S );
     bool all = ( type == TopAbs_SHAPE );