diff --git a/racket/src/cs/rumble/intmap.ss b/racket/src/cs/rumble/intmap.ss index 36bf719363..ea2c181f5a 100644 --- a/racket/src/cs/rumble/intmap.ss +++ b/racket/src/cs/rumble/intmap.ss @@ -84,7 +84,8 @@ (loop (Br-right t)))] [(Lf? t) - (if (key=? et key (Lf-key t)) + (if (and (fx= h (Lf-hash t)) + (key=? et key (Lf-key t))) (with-leaf t) default)]