diff --git a/collects/typed-racket/optimizer/logging.rkt b/collects/typed-racket/optimizer/logging.rkt
index af402e17f3..c45e2f5b5a 100644
--- a/collects/typed-racket/optimizer/logging.rkt
+++ b/collects/typed-racket/optimizer/logging.rkt
@@ -145,25 +145,6 @@
 
 ;;--------------------------------------------------------------------
 
-;; Sort log according to source location. Returns the sorted log.
-(define (sort-log)
-  (sort (remove-duplicates log-so-far)
-        (match-lambda*
-         [(list (log-entry kind-x msg-x stx-x loc-stx-x pos-x)
-                (log-entry kind-y msg-y stx-y loc-stx-y pos-y))
-          (cond [(not (or pos-x pos-y))
-                 ;; neither have location, sort by message
-                 (string<? msg-x msg-y)]
-                [(not pos-y) #f]
-                [(not pos-x) #t]
-                [else
-                 ;; both have location
-                 (cond [(= pos-x pos-y)
-                        ;; same location, sort by message
-                        (string<? msg-x msg-y)]
-                       ;; sort by source location
-                       [else (< pos-x pos-y)])])])))
-
 (define (line+col->string stx)
   (let ([line (syntax-line stx)]
         [col  (syntax-column stx)])
@@ -213,7 +194,7 @@
 (define (print-log)
   (define logger (current-logger))
   (add-missed-opts-to-log)
-  (for ([x (sort-log)])
+  (for ([x (in-list log-so-far)])
     (log-message logger 'debug
                  (format-log-entry x)
                  (cons optimization-log-key x))))
diff --git a/collects/typed-racket/optimizer/tool/report.rkt b/collects/typed-racket/optimizer/tool/report.rkt
index 689f6daf16..01aee338f5 100644
--- a/collects/typed-racket/optimizer/tool/report.rkt
+++ b/collects/typed-racket/optimizer/tool/report.rkt
@@ -1,6 +1,6 @@
 #lang racket/base
 
-(require racket/class racket/gui/base racket/match racket/port
+(require racket/class racket/gui/base racket/match racket/port racket/list
          unstable/syntax unstable/port racket/sandbox
          typed-racket/optimizer/logging
          (prefix-in tr: typed-racket/typed-reader))
@@ -90,7 +90,7 @@
                          0
                          (missed-opt-log-entry-badness l)))]
       [_ #f])) ; no source location, ignore
-  (filter values (map log-entry->report-entry log)))
+  (filter values (map log-entry->report-entry (remove-duplicates log))))
 
 (define (merge-entries prev l)
   (match* (prev l)