From 1260d7e8cd5fc1f89b4268a1c8479e0a886eda56 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Thu, 26 Sep 2013 21:02:45 -0600
Subject: [PATCH] Fix checksum goof

---
 pkgs/plt-services/meta/pkg-index/official/main.rkt | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/pkgs/plt-services/meta/pkg-index/official/main.rkt b/pkgs/plt-services/meta/pkg-index/official/main.rkt
index 124dc56e10..103fb34e1b 100644
--- a/pkgs/plt-services/meta/pkg-index/official/main.rkt
+++ b/pkgs/plt-services/meta/pkg-index/official/main.rkt
@@ -95,6 +95,8 @@
                         (hash-ref pkg-info 'name) key)]
                 ['ring
                  *default-ring*]
+                ['checksum-error
+                 #f]
                 ['tags
                  empty]
                 ['versions
@@ -815,9 +817,9 @@
           (td "Checksum")
           (td ,(package-ref* i 'checksum "")))
          ,@(if (package-ref* i 'checksum-error #f)
-             `(tr (td "Error")
-                  (td "The last time we attempted to update this checksum. The following error was thrown:"
-                      (pre ,(package-ref* i 'checksum-error ""))))
+             `((tr (td "Error")
+                   (td "The last time we attempted to update this checksum. The following error was thrown:"
+                       (pre ,(package-ref* i 'checksum-error "")))))
              empty)
          (tr
           (td "Last Update")
@@ -955,6 +957,7 @@
 (define (update-from-content i)
   (define-values (checksum module-paths dependencies)
     (pkg:get-pkg-content (pkg:pkg-desc (hash-ref i 'source)
+                                       #f
                                        #f
                                        (hash-ref i 'checksum)
                                        #f)))