X-Git-Url: http://git.hcoop.net/jackhill/guix/guix.git/blobdiff_plain/5ec4156bbcaec8337f78411204d59e59e706103b..8ac7fae8b0aebee01cb2592fd24c49fc0828c019:/etc/system-tests.scm

diff --git a/etc/system-tests.scm b/etc/system-tests.scm
index ab2827e70a..1085deed24 100644
--- a/etc/system-tests.scm
+++ b/etc/system-tests.scm
@@ -79,7 +79,11 @@ the 'TESTS' environment variable."
   ;; Intern SOURCE so that 'build-from-source' in (guix channels) sees
   ;; "fresh" file names and thus doesn't find itself loading .go files
   ;; from ~/.cache/guile when it loads 'build-aux/build-self.scm'.
-  (let* ((source (local-file source "guix-source"
+  (let* ((source (local-file source
+                             (if commit
+                                 (string-append "guix-"
+                                                (string-take commit 7))
+                                 "guix-source")
                              #:recursive? #t
                              #:select?
                              (or (git-predicate source)