diff --git a/R/deviation.R b/R/deviation.R
index 5586577..0795d19 100644
--- a/R/deviation.R
+++ b/R/deviation.R
@@ -53,7 +53,7 @@ deviation.last <- function (n, intercept=FALSE, contrasts=TRUE, sparse=FALSE) {
         cont <- cont[, -length(levels), drop = FALSE]
         cont[length(levels), ] <- -1
         colnames(cont) <- NULL
-        dimnames(cont) <- list(1:n, paste0("MD", .zf(1:(n-1))))  
+        #dimnames(cont) <- list(1:n, paste0("MD", .zf(1:(n-1))))  
     }
     if(intercept) (cont <- cbind(Int=1,cont))
     cont