diff --git a/quad/quad/checksum.rkt b/quad/quad/checksum.rkt
index dd1510b3..5454d960 100644
--- a/quad/quad/checksum.rkt
+++ b/quad/quad/checksum.rkt
@@ -4,6 +4,6 @@
 
 (define (pkg-checksum [pkg "quad"] #:short [short? #false])
   (match (for/or ([scope (in-list '(user installation shared))])
-                 (hash-ref (read-pkgs-db scope) pkg #false))
-    [(pkg-info _ checksum _) (if short? (substring checksum 0 7) checksum)]
-    [_ "checksum not found"]))
\ No newline at end of file
+           (hash-ref (read-pkgs-db scope) pkg #false))
+    [(pkg-info _ (? string? checksum) _) (if short? (substring checksum 0 7) checksum)]
+    [_ "checksum not found"]))