gnu: adms: Fix build.

Fixes <https://issues.guix.gnu.org/75740>.

* gnu/packages/engineering.scm (adms): Fix build.
[arguments]<#:phases>: Add patch-shebang phase.

Change-Id: I4c3f3ae9777277cc37997bcaa7a7e6258bbd478f

gnu/packages/engineering.scm

@@ -1744,6 +1744,14 @@ developed at MIT to model electromagnetic systems.")
                (base32
                 "0i37c9k6q1iglmzp9736rrgsnx7sw8xn3djqbbjw29zsyl3pf62c"))))
     (build-system gnu-build-system)
+    (arguments
+     (list #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'unpack 'patch-shebang
+                 (lambda _
+                   (substitute* "bootstrap.sh"
+                     (("# !/bin/sh")
+                      (string-append "#!" (which "sh")))))))))
     (native-inputs
      (list autoconf
            automake