[racket-dev] DrRacket display bug

To reproduce:
Generate file with the following script (filepath doesn't matter) and open
in DrRacket.

#lang racket/base

(require racket/file math/number-theory)

(with-output-to-file "d:/big-numbers.rkt"
  (λ ()
    (define x (factorial 5000))
    (displayln "#lang racket")
    (displayln "(define bignumber-list (list ")
    (for ([n 2])
      (displayln x))
    (display "))")
    (flush-output)))


Result on my machine: http://postimg.org/image/5xqo3bcvv/full/

'Reindent All' (Ctrl+I) makes view normal.