`set-color` method in `message%` signals internal error

[rfindler]

The program

#lang racket/gui
(send (new message% [parent (new frame% [label ""])] [label ""]) set-color "notacolor")

produces the error:

class-field-accessor: contract violation
  expected: object?
  given: #f