diff --git a/collects/future-visualizer/private/visualizer-gui.rkt b/collects/future-visualizer/private/visualizer-gui.rkt index 3244cb303d..5ac8f0039b 100644 --- a/collects/future-visualizer/private/visualizer-gui.rkt +++ b/collects/future-visualizer/private/visualizer-gui.rkt @@ -70,7 +70,8 @@ [(touch) (send data-label1 set-label (format "Touching future ~a" (event-user-data evt)))] [else - (send data-label1 set-label "")])) + (send data-label1 set-label "") + (send data-label2 set-label "")])) (begin (send selected-label set-label "") (send time-label set-label "")