Iges import issue

I tried the file with and earlier release of OCC (6.3.1) and still good result. So here are the big line of our uses of OCC classes, we read every IGES entity so we could get the name, color, level... of each entity:

IGESControl_Controller::Init();
// load data exchange message files
Message_MsgFile::LoadFromEnv("CSF_XSMessage","IGES");

// load shape healing message files
Message_MsgFile::LoadFromEnv("CSF_SHMessageStd","SHAPEStd");

IGESControl_Reader aReader;
IFSelect_ReturnStatus stat=aReader.ReadFile(anOCName.ToCString());

// check file conformity and output stats
aReader.PrintCheckLoad(Standard_True,IFSelect_GeneralInfo);

// get all shapes
Handle(TColStd_HSequenceOfTransient) aListInit=aReader.GiveList("xst-transferrable-roots");

// build a new list with group expanded
Handle(TColStd_HSequenceOfTransient) aList=new TColStd_HSequenceOfTransient();
Standard_Integer j;
for (j=1; j<=aListInit->Length(); j++) {
if (aListInit->Value(j)->IsKind(STANDARD_TYPE(IGESBasic_Group))) {
Handle(IGESBasic_Group) igesGroup=
Handle(IGESBasic_Group)::DownCast(aListInit->Value(j));
for (Standard_Integer i=1; i<=igesGroup->NbEntities(); i++) {
aList->Append(igesGroup->Value(i));
}
}
else {
aList->Append(aListInit->Value(j));
}
}

// transfert all the iges entity
for (j=1; j<=aList->Length(); j++) {
Standard_Boolean isTransfered=Standard_False;

Handle(IGESData_IGESEntity) igesEntity=
Handle(IGESData_IGESEntity)::DownCast(aList->Value(j));
if (!igesEntity.IsNull()) {
// clear any old shape
aReader.ClearShapes();
Standard_Boolean isTransfered=Standard_False;
try {
isTransfered=aReader.TransferEntity(igesEntity);
}
catch (Standard_Failure) {
isTransfered=Standard_False;
}
catch (...) {
isTransfered=Standard_False;
}
// transfer it
if (isTransfered) {

// it's ok
if (aReader.NbShapes()>0) {

// get the shape
TopoDS_Shape aShape=aReader.OneShape();

// add it to the context with the right color
// and blank status
if (!aShape.IsNull()) {

// a level number exist
Standard_Integer aLevel=-1;
if (igesEntity->DefLevel()==IGESData_DefValue) {
aLevel=igesEntity->Level();
}

QString aName;
if (igesEntity->HasShortLabel()) {
Handle(TCollection_HAsciiString) aLabel=igesEntity->ShortLabel();
aName=QString(aLabel->ToCString());
}

Quantity_Color aColor(Quantity_NOC_BLUE1);
if (igesEntity->RankColor()>-1)
aColor=ConvertRankColor(igesEntity->RankColor());
KeepObjectSomewhere(aShape,aColor,aLevel,aName);
isTransfered=Standard_True;
}
}
}

// not transfered
if (isTransfered==Standard_False) {
// do something
}
}
}