diff --git a/collects/typed-scheme/optimizer/logging.rkt b/collects/typed-scheme/optimizer/logging.rkt
index d39748df..a8fa30c6 100644
--- a/collects/typed-scheme/optimizer/logging.rkt
+++ b/collects/typed-scheme/optimizer/logging.rkt
@@ -111,6 +111,8 @@
                         (format "~a ~a"
                                 (line+col->string irritant)
                                 (syntax->datum irritant)))
-                      irritants)
+                      (sort irritants <
+                            #:key (lambda (x)
+                                    (or (syntax-position x) 0))))
                  ", "))
         kind)))