diff --git a/R/collocationScoreQuery.R b/R/collocationScoreQuery.R
index fcdce78..9a93eab 100644
--- a/R/collocationScoreQuery.R
+++ b/R/collocationScoreQuery.R
@@ -188,7 +188,7 @@
 #' @return tibble with unique collocate rows
 #'
 #' @importFrom dplyr bind_rows group_by summarise ungroup mutate across first everything
-#' @importFrom httr2 url_parse url_build
+#' @importFrom httr2 url_modify
 #' @export
 mergeDuplicateCollocates <- function(...) {
   # https://stackoverflow.com/questions/8096313/no-visible-binding-for-global-variable-note-in-r-cmd-check
@@ -196,9 +196,7 @@
 
   combined_df <- bind_rows(...)
 
-  korapUrl <- httr2::url_parse(combined_df$webUIRequestUrl[1])
-  korapUrl$query <- ''
-  korapUrl <- httr2::url_build(korapUrl)
+  korapUrl <- combined_df$webUIRequestUrl[1] |> httr2::url_modify(query="")
 
   # Group by collocate and summarize
   combined_df %>%