From 52f33231faf97ab9b1b9a3dd53a4236d6c3e54fd Mon Sep 17 00:00:00 2001
From: Vincent St-Amour <stamourv@racket-lang.org>
Date: Tue, 25 Nov 2014 17:43:27 -0500
Subject: [PATCH] Make contract profiler's path shortening more robust.

---
 pkgs/contract-profile/utils.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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