(define xhurd-headers
    (package (inherit hurd-headers)
             (name (string-append (package-name hurd-headers)
                                  "-cross-" target))
             
             ((#:configure-flags flags)
              `(remove (cut string-match "--host.*" <>)
                                   ,flags))
             (native-inputs `(("cross-gcc-hurd" ,xgcc)
                              ("cross-binutils" ,xbinutils)
                             ;; ("cross-mig" ,xmig)
                              ,@(alist-delete "mig"(package-native-inputs hurd-headers))))))