diff --git a/racket/collects/pkg/private/download.rkt b/racket/collects/pkg/private/download.rkt
index 8199c822ff..47fc8e401b 100644
--- a/racket/collects/pkg/private/download.rkt
+++ b/racket/collects/pkg/private/download.rkt
@@ -27,12 +27,12 @@
       rest]
      [_ rp])))
 
-(define (do-cache-file file url checksum use-cache? download-printf download!)
+(define (do-cache-file file url key checksum use-cache? download-printf download!)
   (cond
    [(and use-cache? checksum)
     (cache-file file
                 #:exists-ok? #t
-                (list (url->string url) checksum)
+                (list key checksum)
                 (get-download-cache-dir)
                 download!
                 #:log-error-string (lambda (s) (log-pkg-error s))
@@ -76,7 +76,8 @@
                               "  server response: ~a")
                           (url->string url)
                           (read-line (open-input-string reply-s))))))))))
-    (do-cache-file file url checksum use-cache? download-printf download!)))
+    (do-cache-file file url (url->string url) checksum 
+                   use-cache? download-printf download!)))
 
 (define (clean-cache pkg-url checksum)
   (when pkg-url
@@ -116,7 +117,8 @@
              #:exists-ok? #t
              (directory-list))))
   
-  (do-cache-file tmp.tgz url checksum use-cache? download-printf download!)
+  (do-cache-file tmp.tgz url (vector transport host port repo) checksum 
+                 use-cache? download-printf download!)
 
   (unless unpacked?
     (untgz tmp.tgz #:dest dest-dir))