geom_smooth fails with same degree that passes lm

Question

set.seed(42)
tbl <- data.frame(x=trunc(100*runif(100)), y=trunc(100*runif(100)))
m <- lm(tbl[["y"]] ~ poly(tbl[