diff --git a/R/compare.R b/R/compare.R
index afd97fd..7f44c2c 100644
--- a/R/compare.R
+++ b/R/compare.R
@@ -38,7 +38,7 @@ compare <- function(
                     }
                 })
 
-                if (is.null(ctc)) {
+                if (is.null(ctc) & !is.null(cc)) {
                     colnames(cc) <- colnames(dat)[-nc]
                     if (espresso) {
                         soles <- apply(