diff --git a/collects/drracket/private/rep.rkt b/collects/drracket/private/rep.rkt index bc5f4cb97a..8c4ea5368c 100644 --- a/collects/drracket/private/rep.rkt +++ b/collects/drracket/private/rep.rkt @@ -632,7 +632,7 @@ TODO ;; -> (void) (define/public (highlight-errors raw-locs [raw-error-arrows #f]) (set-error-ranges raw-locs) - (define locs (get-error-ranges)) ;; calling set-error-range cleans up the locs + (define locs (or (get-error-ranges) '())) ;; calling set-error-range cleans up the locs (define error-arrows (and raw-error-arrows (cleanup-locs raw-error-arrows))) (reset-highlighting)