font-lock-compile-keywords and tcl.el

[Glenn Morris]

emacs -q --no-site-file
(global-font-lock-mode 1)
(tcl-mode)

font-locks the following

puts "hostname is [info hostname]"

in a mixture of warning and string face, when there's nothing wrong or
risky with it as a tcl statement AFAICS. It somehow comes from the
"Try to detect when a string or comment contains something that looks
like a defun and would thus confuse font-lock" bit of
font-lock-compile-keywords. Is it due to tcl.el adding
beginning-of-defun to font-lock-defaults?