From 2d1859a9842a3893a695c3c5ac8756dbc3af3fa5 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Sat, 8 Mar 2014 14:01:08 -0700
Subject: [PATCH] ensure package name is used in all metadata calls

---
 pkgs/plt-services/meta/pkg-index/official/update.rkt | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/pkgs/plt-services/meta/pkg-index/official/update.rkt b/pkgs/plt-services/meta/pkg-index/official/update.rkt
index ded1e9a9cf..9b532e3d1c 100644
--- a/pkgs/plt-services/meta/pkg-index/official/update.rkt
+++ b/pkgs/plt-services/meta/pkg-index/official/update.rkt
@@ -32,7 +32,8 @@
       (printf "\tupdating ~a\n" pkg-name)
       (define new-checksum
         (package-url->checksum
-         (package-ref i 'source)))
+         (package-ref i 'source)
+         #:pkg-name pkg-name))
       (package-begin
        (define* i
          (hash-set i 'checksum
@@ -47,7 +48,8 @@
                           (define old-checksum (hash-ref vi 'checksum ""))
                           (define new-checksum
                             (package-url->checksum
-                             (hash-ref vi 'source "")))
+                             (hash-ref vi 'source "")
+                             #:pkg-name pkg-name))
                           (values v
                                   (hash-set vi 'checksum
                                             (or new-checksum
@@ -67,7 +69,7 @@
   (define-values (checksum module-paths dependencies)
     (pkg:get-pkg-content (pkg:pkg-desc (hash-ref i 'source)
                                        #f
-                                       #f
+                                       (hash-ref i 'name)
                                        (hash-ref i 'checksum)
                                        #f)))
   (package-begin