If you check options("contrasts") you will probably see "contr.sum" "contr.poly".

Reset options(contrasts = c("contr.treatment", "contr.poly")) then you will get the desired result.

See explanation on R contrasts .