diff --git a/clash/clash.lisp b/clash/clash.lisp
index 2ba760a..3a68dbd 100644
--- a/clash/clash.lisp
+++ b/clash/clash.lisp
@@ -213,8 +213,10 @@ The following suffixes are recognized (in additon to \"B\"):
                                     case-insensitive)
   "Compare TRASHINFO's name or path to FILTER using the provided matching
 options."
-  (let* ((orig-path (trashinfo-original-path trashinfo))
-         (target (if full-path orig-path (file-or-dir-namestring orig-path))))
+  (let* ((orig-path (trashinfo-original-path trashinfo :resolve t))
+         (target (if full-path
+                     (uiop:native-namestring orig-path)
+                     (file-or-dir-namestring orig-path))))
     (cond
       ((and exact case-insensitive) (equalp target filter))
       (exact (equal target filter))
@@ -223,8 +225,10 @@ options."
 (declaim (inline compare-trashinfo-to-scanner))
 (defun compare-trashinfo-to-scanner (trashinfo filter full-path exact)
   "Compare TRASHINFO's name or path to FILTER, which is a cl-ppcre scanner."
-  (let* ((orig-path (trashinfo-original-path trashinfo))
-         (target (if full-path orig-path (file-or-dir-namestring orig-path))))
+  (let* ((orig-path (trashinfo-original-path trashinfo :resolve t))
+         (target (if full-path
+                     (uiop:native-namestring orig-path)
+                     (file-or-dir-namestring orig-path))))
     (multiple-value-bind (start end) (cl-ppcre:scan filter target)
       (and start
            (or (not exact)