diff --git a/src/GEOMImpl/GEOMImpl_IShapesOperations.hxx b/src/GEOMImpl/GEOMImpl_IShapesOperations.hxx
index d45ad5419..03882dda5 100644
--- a/src/GEOMImpl/GEOMImpl_IShapesOperations.hxx
+++ b/src/GEOMImpl/GEOMImpl_IShapesOperations.hxx
@@ -499,7 +499,7 @@ class GEOMImpl_IShapesOperations : public GEOM_IOperations
    * \param theStats the operation statistics. Output parameter.
    * \return the shape without extracted sub-shapes.
    */
-  Handle(GEOM_Object) MakeExtraction
+  Standard_EXPORT Handle(GEOM_Object) MakeExtraction
                      (const Handle(GEOM_Object)              &theShape,
                       const Handle(TColStd_HArray1OfInteger) &theSubShapeIDs,
                       std::list<ExtractionStat>              &theStats);
diff --git a/src/GEOM_I/GEOM_IShapesOperations_i.cc b/src/GEOM_I/GEOM_IShapesOperations_i.cc
index 02dcdcf91..325612adb 100644
--- a/src/GEOM_I/GEOM_IShapesOperations_i.cc
+++ b/src/GEOM_I/GEOM_IShapesOperations_i.cc
@@ -2320,7 +2320,7 @@ GEOM::GEOM_Object_ptr GEOM_IShapesOperations_i::MakeExtraction
 
     aResStat->indices = aResIDList;
 
-    theStats[i] = aResStat;
+    theStats[(_CORBA_ULong)i] = aResStat;
   }
 
   return GetObject(aResult);