Single quote character breaks syntax highlight

[sleutho]

set name "foo\"bar"
puts $name
if {[string first {"} $name] != -1 }  {
    puts autsch
}