diff --git a/R/describe_posterior.R b/R/describe_posterior.R
index b69821755..d238c23d9 100644
--- a/R/describe_posterior.R
+++ b/R/describe_posterior.R
@@ -597,7 +597,7 @@ describe_posterior.data.frame <- function(posterior,
     cl$posterior <- x_rvar
     cl$rvar_col <- NULL
     prior_rvar <- .possibly_extract_rvar_col(posterior, bf_prior)
-    if (length(prior_var) > 0L) {
+    if (length(prior_rvar) > 0L) {
       cl$bf_prior <- prior_rvar
     }
     out <- eval.parent(cl)
diff --git a/R/spi.R b/R/spi.R
index b4baf5607..53429f90f 100644
--- a/R/spi.R
+++ b/R/spi.R
@@ -352,7 +352,7 @@ spi.get_predicted <- function(x, ci = 0.95, use_iterations = FALSE, verbose = TR
   }
 
   # output
-  data.frame(CI = ci, CI_low = x.l,CI_high = x.u)
+  data.frame(CI = ci, CI_low = x.l, CI_high = x.u)
 }
 
 .spi_lower <- function(bw, n.sims, k, l, dens, x) {