diag<- fixed @vjovanov