diff --git a/modules/home/users/msyds/emacs/lisp/syd/prelude.el b/modules/home/users/msyds/emacs/lisp/syd/prelude.el
index 480e542..ac832d4 100755
--- a/modules/home/users/msyds/emacs/lisp/syd/prelude.el
+++ b/modules/home/users/msyds/emacs/lisp/syd/prelude.el
@@ -202,7 +202,8 @@ form."
        s))))
 
 (defun syd-project-relative-file-name (file-name)
-  (file-relative-name file-name (project-root (project-current))))
+  (when-let* ((proj (project-current)))
+    (file-relative-name file-name (project-root proj))))
 
 (defvar syd-insert-file-name-alist
   `((,#'syd-project-relative-file-name . "Project-relative")