diff --git a/R/contr.equalprior.R b/R/contr.equalprior.R
index 252e6ceda..d87beeac4 100644
--- a/R/contr.equalprior.R
+++ b/R/contr.equalprior.R
@@ -172,6 +172,7 @@ contr.equalprior <- function(n, contrasts = TRUE, sparse = FALSE) {
 #' @rdname contr.equalprior
 contr.equalprior_pairs <- function(n, contrasts = TRUE, sparse = FALSE) {
   contr <- contr.equalprior(n, contrasts, sparse) / sqrt(2)
+  contr
 }
 
 #' @export