My tests of using AstronomicalData versus StarData show that StarData requests are 15 times slower for the exact same request. Can anyone make a recommendation to improve the sample test below?

Length[m1 = AstronomicalData["ClassMStar"]]

(* Out: 4258 *)

Timing[
     Length[
 listClassMStar =
  {AstronomicalData[#, "Name"], AstronomicalData[#, "HDNumber"], 
   AstronomicalData[#, "SpectralClass"], AstronomicalData[#, "BVColorIndex"], 
   AstronomicalData[#, "Effectrature"], AstronomicalData[#, "Mass"], 
   AstronomicalData[#, "Luminosity"], AstronomicalData[#, "AbsoluteMagnitude"], 
   AstronomicalData[#, "ApparentMagnitude"], AstronomicalData[#, "ConstellationName"]} & 
/@ m1]]

(* Out: {45.5534, 4258} *)

Timing[
 Length[
  listClassMStar =
   StarData[
    m1, {"Name", "HDNumber", "SpectralClass", "BVColorIndex", "EffectiveTemperature", 
         "Mass", "Luminosity", "AbsoluteMagnitude", "ApparentMagnitude", 
         "ConstellationName"}
   ]
  ]
 ]

(* Out: {702.228, 4258} *)