Mouse wheel events apparently not working in canvas on macOS with Tk 9.0.1

Hello all,

I'm seeing a weird issue with tcl/tk 9.0.1 on macOS: if I create a canvas
and bind mouse wheel events on it, it doesn't seem to receive them. Here
is a tiny script showing the problem:

canvas .cnv
pack .cnv -fill both -expand yes
bind .cnv <MouseWheel> { puts "." }

If I run that with tcl/tk 8.6.16 compiled from source on my mac mini (M1
chip, macOS Ventura 13.2.1), it works as expected, the mouse wheel events
are received and the "." are printed. If I do the same with tcl/tk 9.0.1,
again compiled from source on the same machine, it doesn't work: no "." is
printed.

I tried with tcl/tk 9.0.1 also compiled from the source code on Windows
and even Linux, and the same script works as expected: the mouse wheel
events are received and the "." are printed. The only platform where it
doesn't work is macOS.

This looks like quite a big problem, so I'd be surprised if it had been
missed. Can anyone confirm what I'm seeing here? Is there an issue with my
installation?

Thanks!
--
 Eric