diff --git a/R/tempfile.R b/R/tempfile.R
index 2cc406f..b0e7aaa 100644
--- a/R/tempfile.R
+++ b/R/tempfile.R
@@ -63,7 +63,7 @@ local_tempfile <- function(new = NULL, lines = NULL, envir = parent.frame(), .lo
       con <- file(path, open = "wb", encoding = "UTF-8")
       defer(close(con))
 
-      writeLines(lines, con)
+      writeLines(enc2utf8(lines), con)
     }
 
     defer(unlink(path, recursive = TRUE), envir = .local_envir)