I do the following (on linux):

  DB<1> *DB::get_fork_TTY = sub { DB::xterm_get_fork_TTY() }
[download]

Somehow I've always had the niggling feeling I shouldn't have to do this, but it does make things work as expected and desired for me.