diff --git a/src/params.lisp b/src/params.lisp
index f3a9f3b..9a52871 100644
--- a/src/params.lisp
+++ b/src/params.lisp
@@ -84,7 +84,7 @@
 (defparameter *root-dir*
   #+unix (uiop:parse-native-namestring "/tmp/pgloader/")
   #-unix (uiop:merge-pathnames*
-          (uiop:make-pathname* :direction '(:relative "pgloader"))
+          (uiop:make-pathname* :directory '(:relative "pgloader"))
           (uiop:ensure-directory-pathname (getenv-default "Temp")))
   "Top directory where to store all data logs and reject files.")