RSHilightable sometimes not clearing when more than one have been applied to the same shape

[fuhrmanator]

When more than one RSHilightable apply to the same shape (I realize it may not make sense to do that), when the mouse is moved off of the item, the highlight is (sometimes) not removed.

Here's a minimal example that runs in a Playground:

canvas := RSCanvas new.
shapes := RSCircle models: { 1. 2. 1. 8. 9 }.
shapes
    size: 50;
    color: Color white.

shapes @ RSLabeled middle.

hl1 := RSHighlightable new.
hl1 highlightColor: Color red translucent.
hl1 highlightShapes: [ :mouseShape | 
    shapes select: [ :w | 
        w model <= mouseShape model ] ].
shapes @ hl1.

hl2 := RSHighlightable new.
hl2 highlightColor: Color orange translucent.
hl2 highlightShapes: [ :mouseShape | 
    shapes select: [ :w | 
        w model isDivisibleBy: mouseShape model ] ].
shapes @ hl2.

"first node should be at top (12 o'clock)"
RSCircleLayout new
    initialAngleInDegree: -90;
    on: shapes.

canvas addAll: shapes.

Here's a recording from Roassal in Pharo 13:

It seems to be non-deterministic (running this multiple times will give different results, but eventually the bug appears).

I'm sure this didn't happen in Roassal from Pharo 10.