[racket] message-box too small to display title

I've created a simple message-box.  It expands in width to display the
message, but if the title is longer than the message, then the title
is cut-off.  Is there any way to have the message-box expand enough to
display the title in that case.

Thanks,
Harry Spier