diff --git a/NEWS.md b/NEWS.md
index bb4f73768..9bc104a73 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -30,6 +30,8 @@
   cli progress bars. It makes cli redraw the progress bar for every
   progress update.
 
+* Fix issues with `ansi_strwrap()` having `\r` in the string (#667)
+
 # cli 3.6.6
 
 * New `{.num}` and `{.bytes}` inline styles to format numbers
diff --git a/R/ansiex.R b/R/ansiex.R
index 9369db864..3a9ffd7c3 100644
--- a/R/ansiex.R
+++ b/R/ansiex.R
@@ -631,7 +631,7 @@ ansi_strwrap <- function(
 
   # First we need to remove the multiple spaces, to make it easier to
   # map the strings later on. We do this per paragraph, to keep paragraphs.
-  pars <- strsplit(x, "\n[ \t\n]*\n", perl = TRUE)
+  pars <- strsplit(x, "\r?\n[ \t\n\r]*\r?\n", perl = TRUE)
   pars <- lapply(pars, ansi_trimws)
 
   # Within paragraphs, replace multiple spaces with one, except when there
@@ -640,11 +640,11 @@ ansi_strwrap <- function(
   # some is outside, but for now, we'll live with this limitation.
   pars <- lapply(pars, function(s) {
     # First replace multiple spaces that are not at the end of a sentence
-    s <- gsub("(?<![.!?])[ \t\n][ \t\n]*", " ", s, perl = TRUE)
+    s <- gsub("(?<![.!?])[ \t\r\n][ \t\r\n]*", " ", s, perl = TRUE)
     # Handle multiple spaces at the end of a sentence
-    s <- gsub("(?<=[.!?])[ \t\n][ \t\n][ \t\n]*", "  ", s, perl = TRUE)
+    s <- gsub("(?<=[.!?])[ \t\r\n][ \t\n][ \t\r\n]*", "  ", s, perl = TRUE)
     # Handle simple space at the end of a sentence
-    gsub("(?<=[.!?])[ \t\n]", " ", s, perl = TRUE)
+    gsub("(?<=[.!?])[ \t\r\n]", " ", s, perl = TRUE)
   })
 
   # Put them back together
@@ -676,7 +676,8 @@ ansi_strwrap <- function(
     } else if (xsc == xwc) {
       xsidx <- xsidx + 1L
       xwidx[2] <- xwidx[2] + 1L
-    } else if (xsc %in% c(" ", "\n", "\t")) {
+    } else if (xsc %in% c(" ", "\n", "\t", "\r")) {
+      # Ignore whitespace characters
       drop <- c(drop, xsidx)
       xsidx <- xsidx + 1L
     } else if (xwc == " ") {
diff --git a/tests/testthat/test-ansiex.R b/tests/testthat/test-ansiex.R
index 65488e47a..ed3f9321d 100644
--- a/tests/testthat/test-ansiex.R
+++ b/tests/testthat/test-ansiex.R
@@ -584,6 +584,11 @@ test_that("ansi_strwrap newlines", {
     ansi_strwrap("\033[32mv\033[39m hello world.\nxxx"),
     ansi_string("\033[32mv\033[39m hello world. xxx")
   )
+  # Reprex for issue #667 about using \r
+  expect_equal(
+    ansi_strwrap("\033[36m•\033[39m x \r y"),
+    ansi_string("\033[36m•\033[39m x y")
+  )
 })
 
 test_that("ansi_strwrap and \f edge cases", {