diff --git a/pkgs/contract-profile/boundary-view.rkt b/pkgs/contract-profile/boundary-view.rkt
index 62ae396585..e96628dc53 100644
--- a/pkgs/contract-profile/boundary-view.rkt
+++ b/pkgs/contract-profile/boundary-view.rkt
@@ -151,7 +151,7 @@
   (define total-contract-time
     (max 1e-20 (for/sum ([b (in-list all-boundaries)]) (boundary-time b))))
   (define max-self%
-    (/ (for/fold ([m 0]) ([b (in-list all-boundaries)])
+    (/ (for/fold ([m 1e-20]) ([b (in-list all-boundaries)])
          (max m (boundary-time b)))
        total-contract-time))