diff --git a/package.lisp b/package.lisp
index 1ac05f0..39db305 100644
--- a/package.lisp
+++ b/package.lisp
@@ -4,6 +4,7 @@
                 #:easy-acceptor)
   (:export
    #:*app*
+   #:set-default-directory
    #:start-server
    #:stop-server
    #:restart-server))
diff --git a/src/app.lisp b/src/app.lisp
index 0c60542..5613b85 100644
--- a/src/app.lisp
+++ b/src/app.lisp
@@ -1,5 +1,8 @@
 (in-package :ml-survey)
 
+(defun set-default-directory (directory)
+  (setf *default-pathname-defaults* (truename (merge-pathnames directory))))
+
 (defun create-server (name port &key address document-root)
   (let ((acceptor (make-instance 'hunchentoot:easy-acceptor
                                  :address address
@@ -23,4 +26,4 @@
 (defvar *app* (create-server 'app
                              8080
                              :document-root
-                             "~/quicklisp/local-projects/dev.metalisp.survey/"))
+                             (merge-pathnames (uiop:getcwd) "public")))