When inside of a CE, wrong colour for the with keyword when capturing a type checked exception

[MangelMaxime]

exception TestException of string

let test =
    task {
        try
            ()
        with :? TestException as e ->
            failwithf "An error occurred: %s" e.Message
    }