diff --git a/clash/clash.lisp b/clash/clash.lisp
index 0e48f71..0062209 100644
--- a/clash/clash.lisp
+++ b/clash/clash.lisp
@@ -419,7 +419,7 @@ list of trash directories that were present in INFOS."
          (nconc path-and-infos
                 (mapcar #'list
                         (when all-dirs
-                          (set-difference (cl-xdg-trash:list-trash-directories)
+                          (set-difference (list-nonexcluded-trash-dirs cmd)
                                           dirs :test #'uiop:pathname-equal))))))
       (all-dirs (error "Can't have -D without -d"))
       (no-sort infos)