survplot: preserve par()