Функция коэффициента работает медленно

Обратите внимание:

Clear[x]
expr = Sum[x^i, {i, 15}]^30;

CoefficientList[expr, x]; // Timing
Coefficient[Expand@expr, x, 234]; // Timing
Coefficient[expr, x, 234]; // Timing

{0.047, Null}

{0.047, Null}

{4.93, Null}

Справка утверждает:

Коэффициент работает независимо от того, задано ли выражение expr в развернутой форме или нет.

Есть ли причина, по которой Коэффициент должен быть таким медленным в последнем случае?