diff --git a/R/cloud.R b/R/cloud.R
index 0fdcbf4..0868f28 100644
--- a/R/cloud.R
+++ b/R/cloud.R
@@ -479,7 +479,15 @@ cloud_results <- function(job_id = cloud_job(), pkg = ".") {
   cloud_fetch_results(job_id, pkg = pkg)
 
   cli_alert_info("Comparing results")
-  lapply(list.dirs(file.path(cloud, job_id), full.names = TRUE, recursive = FALSE), cloud_compare)
+  pkgs <- list.dirs(file.path(cloud, job_id), full.names = TRUE, recursive = FALSE)
+
+  pb <- progress_bar$new(format = "Processing package results :percent (:package)", total = length(pkgs))
+  out <- lapply(pkgs, function(pkg) {
+    pb$tick(tokens = list(package = basename(pkg)))
+    cloud_compare(pkg)
+  })
+  pb$terminate()
+  out
 }
 
 #' @inheritParams cloud_report