Xfce collision

[Andreas Enge <andreas@enge.fr>]

Hello,

when installing xfce, there is a collision with xfce4-session for the file
startxfce4.

The reason is the following:
       (alist-replace
        'install
        (lambda* (#:key outputs #:allow-other-keys)
          (let* ((out  (assoc-ref outputs "out"))
                 (bin  (string-append out "/bin"))
                 (prog (string-append bin "/startxfce4")))
            (mkdir-p bin)
            (symlink (string-append
                      (assoc-ref %build-inputs "xfce4-session")
                      "/bin/startxfce4")
                     prog)
            (wrap-program prog
              ;; For xfce4-panel plugins.
              `("X_XFCE4_LIB_DIRS" = ,(list (getenv "X_XFCE4_LIB_DIRS"))))))
    (propagated-inputs
     ...
       ("xfce4-session"        ,xfce4-session)

So if I understand correctly, the startxfce4 of xfce will end up being a
wrapped version of the one in xfce4-session. However, if both are installed,
could it not be possible that the non-wrapped version ends up in the profile?

Andreas