diff --git a/pkgs/contract-profile/utils.rkt b/pkgs/contract-profile/utils.rkt
index 84c129ee9b..e087535075 100644
--- a/pkgs/contract-profile/utils.rkt
+++ b/pkgs/contract-profile/utils.rkt
@@ -151,7 +151,7 @@
   (define table
     (for/hash ([p srcs]
                [e extracted])
-      (values p (hash-ref shortened e))))
+      (values p (hash-ref shortened e (lambda () p)))))
   (lambda (p)
     (define target (hash-ref table p #f))
     (if target