diff --git a/plaintext.lisp b/plaintext.lisp
index 56b4a27..5528d2d 100644
--- a/plaintext.lisp
+++ b/plaintext.lisp
@@ -200,7 +200,8 @@
                    :sources (mapcar #'serialize (sources object)))
   (let ((link (plaintext-file 'project (name object))))
     (when (probe-file link) (delete-file link))
-    (filesystem-utils:create-symbolic-link link (plaintext-file 'project (id object))))
+    (filesystem-utils:create-symbolic-link
+     link (pathname-utils:relative-pathname link (plaintext-file 'project (id object)))))
   (store *storage* object 'excluded-systems)
   (store *storage* object 'excluded-paths)
   (store *storage* object 'releases))