diff --git a/gnu/packages/code.scm b/gnu/packages/code.scm
index 8804173a14..29479cae54 100644
--- a/gnu/packages/code.scm
+++ b/gnu/packages/code.scm
@@ -588,10 +588,11 @@ (define-public kcov
        #:phases
        (modify-phases %standard-phases
          (add-after 'unpack 'fix-/bin/bash-references
-           (lambda _
+           (lambda* (#:key inputs #:allow-other-keys)
+             (let ((bash (assoc-ref inputs "bash")))
              (substitute* (find-files "src" ".*\\.cc?$")
-               (("/bin/bash") (which "bash"))
-               (("/bin/sh") (which "sh"))))))))
+               (("/bin/(bash|sh)" shell)
+                (string-append (assoc-ref inputs "bash") shell)))))))))
     (inputs
      `(("curl" ,curl)
        ("elfutils" ,elfutils)