--- collects/setup/unixstyle-install.ss.orig	2009-05-21 20:37:16.000000000 +0200
+++ collects/setup/unixstyle-install.ss	2009-05-21 20:36:39.000000000 +0200
@@ -179,7 +179,7 @@
                   (regexp-replace* #rx"[\"`'$\\]" (dir: 'bin) "\\\\&"))
           (write-bytes buf (current-output-port) (cdadr m))))))
   (let ([magic (with-input-from-file file (lambda () (read-bytes 10)))])
-    (cond [(regexp-match #rx#"^\177ELF" magic)
+    (cond [(or (regexp-match #rx#"^\177ELF" magic) (regexp-match #rx#"^\316\372\355\376" magic))
            (let ([temp (format "~a-temp-for-install"
                                (regexp-replace* #rx"/" file "_"))])
              (with-handlers ([exn? (lambda (e) (delete-file temp) (raise e))])
