diff --git a/archive.lisp b/archive.lisp
index 3588e70..fde46b9 100644
--- a/archive.lisp
+++ b/archive.lisp
@@ -6,7 +6,8 @@
 
 (defparameter *default-tmpdir*
   (let* ((tmpdir (uiop:getenv "TMPDIR"))
-	 (tmpdir (or (and tmpdir (probe-file tmpdir)) "/tmp")))
+	 (tmpdir (or (and tmpdir (probe-file tmpdir)) "/tmp"))
+	 (tmpdir (fad:pathname-as-directory tmpdir)))
     (fad:pathname-as-directory (merge-pathnames "pgloader" tmpdir)))
   "Place where to fetch and expand archives on-disk.")