Mathematica: почему окружность "плющит"?

[Dims]

Пытаюсь нарисовать динамический рисунок с одновременной выдачей численной информацией и получаю круг, которые "плохо себя ведёт" -- иногда, при отпускании мышки, становится эллипсом. Искажение не затрагивает линии и локатора.

Почему так, не пойму? Если круг сам по себе, а не внутри списка, то всё нормально.

p = {1, 0};
Dynamic[
 Grid[{
   {
    v = Normalize[p];
    Graphics[{
      Circle[{0, 0}, 1],
      Line[{{0, 0}, v}],
      Locator[Dynamic[p]]
      },
     PlotRange -> {{-2, 2}, {-2, 2}}, ImageSize -> 500]
    },
   {ArcTan[v[[2]]/v[[1]]]}
   }]
 ]

[Leierkastenmann]

Сложно сказать точно, но судя по тому что описанное вами поведение есть в семерке, но отсутствует в восьмерке, это глюк.