diff --git a/src/app.lisp b/src/app.lisp
index e101c78..d4d09b8 100644
--- a/src/app.lisp
+++ b/src/app.lisp
@@ -27,9 +27,9 @@
 (defvar *app* (create-server 'app
                              8080
                              :document-root
-                             "public/"
+                             (public-dir)
                              :access-log-destination
-                             (uiop:merge-pathnames* #P"access.log" (app-dir))))
+                             (access-log-file)))
 
 (defun start ()
   (start-server *app*))
diff --git a/src/fileops.lisp b/src/fileops.lisp
index 988f64d..ea3b5b8 100644
--- a/src/fileops.lisp
+++ b/src/fileops.lisp
@@ -66,3 +66,9 @@ within the data directory."
                           :direction :output
                           :if-exists :supersede)
     (prin1 responses stream)))
+
+(defun access-log-file ()
+  (uiop:merge-pathnames* #P"access.log" (app-dir)))
+
+(defun public-dir ()
+  (uiop:merge-pathnames* #P"public/" (app-dir)))