Not able to bind <B1-Button>?

[Dave Bodenstab]

I must be missing something incredibly obvious, but
why do I not get anything printed when I click with
mouse button 1?  I've tried a couple of different
window mgr's on X11, and also tried on windows.

label .l -text Testing
pack .l -padx 20 -pady 20
.l configure -background cyan
bind .l <B1-Button> "puts %W"
bind . <B1-Button> "puts %W"
if { "$tcl_platform(platform)" eq "windows" } {
  console show
}