diff --git a/src/main.lisp b/src/main.lisp
index b49a1f0..4c3b047 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -137,7 +137,8 @@ etc.) happened"
               (res:home-confdir)
               +program-name+
               +program-name+)
-      (res:create-empty-file-in-home swconf:+conf-filename+)
+      (res:create-empty-file-in-home (fs:cat-parent-dir (res:home-confdir)
+                                                        swconf:+conf-filename+))
       (os-utils:exit-program 1))))
 
 (defun shared-init (&key (verbose t) (initialize-database t))