deft--org-complete is generating broken links about deft HOT 1 OPEN

(defun deft--file-title-and-name (f)
  (let ((title (deft-file-title f))
	(fn (replace-regexp-in-string
	     (expand-file-name deft-directory) "" f)))
    (list title fn)))

(defun deft--org-complete ()
  (let ((file (car
	       (let ((choices
		      (mapcar 'deft--file-title-and-name
			      (deft-find-all-files))))
  (alist-get
   (completing-read "file: " choices)
   choices nil nil 'equal)))))
    (concat "deft:" file)))