diff --git a/R/mirai.R b/R/mirai.R
index 29c91243..00574f1e 100644
--- a/R/mirai.R
+++ b/R/mirai.R
@@ -424,7 +424,7 @@ collect_mirai <- collect_aio
 #' @export
 #'
 stop_mirai <- function(x) {
-  is.list(x) && return(rev(as.logical(lapply(rev(unclass(x)), stop_mirai))))
+  is.list(x) && return(as.logical(lapply(x, stop_mirai)))
   .compute <- attr(x, "profile")
   envir <- if (is.character(.compute)) ..[[.compute]]
   stop_aio(x)