diff --git a/components/lazmapviewer/source/mvgpsobj.pas b/components/lazmapviewer/source/mvgpsobj.pas
index 56aaa2ea4..0356c79d0 100644
--- a/components/lazmapviewer/source/mvgpsobj.pas
+++ b/components/lazmapviewer/source/mvgpsobj.pas
@@ -231,7 +231,8 @@ type
     procedure GetArea(out Area: TRealArea); override;
     procedure Draw({%H-}AView: TObject; {%H-}Area: TRealArea); override;
     function GetObjectsInArea(const Area: TRealArea; AClass: TGPSObjClass = nil): TGPSObjList;
-    function GetIdsArea(const Ids: TIdArray; AIdOwner: integer): TRealArea;
+    function GetIDsArea(const IDs: TIdArray; AIdOwner: integer): TRealArea; deprecated 'Use GetAreaOfIDs';
+    function GetAreaOfIDs(const IDs: TIdArray; AIdOwner: Integer): TRealArea;
 
     function Add(aItem: TGpsObj; AIdOwner: Integer; AZOrder: Integer = 0): Integer;
     function Delete(AItem: TGPSObj): Boolean;
@@ -756,6 +757,11 @@ begin
 end;
 
 function TGPSObjectList.GetIdsArea(const Ids: TIdArray; AIdOwner: integer): TRealArea;
+begin
+  Result := GetAreaOfIDs(IDs, AIDOwner);
+end;
+
+function TGPSObjectList.GetAreaOfIDs(const IDs: TIdArray; AIdOwner: Integer): TRealArea;
 var
   Objs: TGPSObjarray;
   i: integer;
@@ -763,7 +769,7 @@ begin
   Result.Init(0, 0, 0, 0);
   Lock;
   try
-    IdsToObj(Ids, Objs, AIdOwner);
+    IdsToObj(IDs, Objs, AIdOwner);
     if Length(Objs) > 0 then
     begin
       Result := Objs[0].BoundingBox;