diff --git a/src/commands/functions-input.lisp b/src/commands/functions-input.lisp
index b7cc6c36..addab737 100644
--- a/src/commands/functions-input.lisp
+++ b/src/commands/functions-input.lisp
@@ -11,11 +11,11 @@
     ((wild-pathname-p spec)
      (directory spec))
     ((pathnamep spec)
-     (unless (probe-file spec)
+     (if-let ((truename (probe-file spec)))
+       (list truename)
        (project::object-error
         (list (list spec "included here" :error))
-        "~@<File does not exist: ~A.~@:>" spec))
-     (list spec))
+        "~@<File does not exist: ~A.~@:>" spec)))
     (t
      (error "~@<Invalid input specification: ~S.~@:>" spec))))
 
diff --git a/src/model/project/concrete-syntax/recipe-repository.lisp b/src/model/project/concrete-syntax/recipe-repository.lisp
index 3552ff46..274538f5 100644
--- a/src/model/project/concrete-syntax/recipe-repository.lisp
+++ b/src/model/project/concrete-syntax/recipe-repository.lisp
@@ -209,6 +209,7 @@
 (defmethod recipe-name ((repository recipe-repository)
                         (kind       t)
                         (path       pathname))
+  (assert (uiop:absolute-pathname-p path))
   (let ((directory    (recipe-directory kind repository))
         (without-type (make-pathname :type nil :defaults path)))
     (when (uiop:subpathp without-type directory)