In[]:=
DynamicModule[{pt={0,0}},​​LocatorPane[Dynamic[pt],​​  Dynamic@GeoGraphics[​​    GeoCircle[Reverse@pt,Quantity[4500,"Kilometers"]],​​    GeoRange"World",GeoProjection"Equirectangular",  FrameTrue]]]
Out[]=
$Aborted