diff --git a/R/path.R b/R/path.R
index 8d904a33..2e2ff813 100644
--- a/R/path.R
+++ b/R/path.R
@@ -368,7 +368,7 @@ path_ext <- function(path) {
 #' @export
 path_ext_remove <- function(path) {
   dir <- path_dir(path)
-  file <- sub("(?<!^|[.]|/)[.][^.]+$", "", path_file(path), perl = TRUE)
+  file <- sub("(?<!^|[.])\\.+([^.]+)$", "", path_file(path), perl = TRUE)
 
   na <- is.na(path)
   no_dir <- dir == "." | dir == ""
diff --git a/tests/testthat/test-path.R b/tests/testthat/test-path.R
index 4cf9aa42..470c1dda 100644
--- a/tests/testthat/test-path.R
+++ b/tests/testthat/test-path.R
@@ -293,6 +293,8 @@ describe("path_ext_remove", {
     expect_equal(path_ext_remove(".cshrc"), ".cshrc")
     expect_equal(path_ext_remove("...manydots"), "...manydots")
     expect_equal(path_ext_remove("...manydots.ext"), "...manydots")
+    expect_equal(path_ext_remove("manydots..."), "manydots...")
+    expect_equal(path_ext_remove("manydots...ext"), "manydots")
     expect_equal(path_ext_remove("."), ".")
     expect_equal(path_ext_remove(".."), "..")
     expect_equal(path_ext_remove("........"), "........")