R help - Mar 2010 - Possible error in anova.lm?

Perhaps those more in the know than I could clarify some confusion. In the ANOVA
'R' code I see:

    mss <- sum(if (is.null(w)) object$fitted.values^2 else w * 
        object$fitted.values^2)
    if (ssr < 1e-10 * mss) 
        warning("ANOVA F-tests on an essentially perfect fit are
unreliable")

But in the summary.lm I see:

        mss <- if (attr(z$terms, "intercept")) 
            sum((f - mean(f))^2)
        else sum(f^2)

or

        mss <- if (attr(z$terms, "intercept")) {
            m <- sum(w * f/sum(w))
            sum(w * (f - m)^2)
        }

At the very least the ANOVA code seems to be inefficient to calculate mss then
only use it for a warning. But it seems that it is being calculated incorrectly.
It is hard to tell since it is only used to issue the warning. But it may be
that the warning is incorrect in some cases if mss is not calculated correctly.
Ideas?

Kevin