diff --git a/R/preprocessing.R b/R/preprocessing.R
index 4f6765faa..102d50450 100644
--- a/R/preprocessing.R
+++ b/R/preprocessing.R
@@ -2637,7 +2637,7 @@ ScaleData.default <- function(
     if (any(vars.to.regress %in% rownames(x = object))) {
       latent.data <- cbind(
         latent.data,
-        t(x = object[vars.to.regress[vars.to.regress %in% rownames(x = object)], ])
+        t(x = object[vars.to.regress[vars.to.regress %in% rownames(x = object)], , drop=F])
       )
     }
     # Currently, RegressOutMatrix will do nothing if latent.data = NULL