r - 単一の lm オブジェクトを含む dplyr ワークフローで `broom:::glance` を使用すると失敗する

Question

次のように使用するbroom:::glanceと：

library(dplyr)
library(broom)
mtcars %>% do(model = lm(mpg ~ wt, .)) %>% glance(model)

私は得る

Error in complete.cases(x) : invalid 'type' (list) of argument

ただし、次を追加するとgroup_by：

mtcars %>% group_by(am) %>% do(model = lm(mpg ~ wt, .)) %>% glance(model)

期待される結果が得られます：

Source: local data frame [2 x 12]
Groups: am

  am r.squared adj.r.squared sigma statistic  p.value df logLik  AIC  BIC deviance df.residual
1  0     0.589         0.565  2.53      24.4 1.25e-04  2  -43.5 93.1 95.9    108.7          17
2  1     0.826         0.810  2.69      52.3 1.69e-05  2  -30.2 66.4 68.1     79.3          11

ここで何か不足していますか、それとも dplyr/broom のエラーですか?