diff --git a/R/utils.R b/R/utils.R
index 10da64eb..327e9764 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -194,8 +194,7 @@ get_tool <- function(prog) {
 
 get_id <- function() {
   paste0(
-    "PS",
-    paste(sample(c(LETTERS, 0:9), 10, replace = TRUE), collapse = ""),
+    basename(tempfile("PS")),
     "_", as.integer(asNamespace("base")$.Internal(Sys.time()))
   )
 }