diff --git a/collects/racket/draw/private/font.rkt b/collects/racket/draw/private/font.rkt
index 0789ed2771..2f88185e30 100644
--- a/collects/racket/draw/private/font.rkt
+++ b/collects/racket/draw/private/font.rkt
@@ -289,12 +289,14 @@
 (define the-font-list (new font-list%))
 
 (define (get-face-list [mode 'all])
-  (map pango_font_family_get_name
-       (let ([fams (pango_font_map_list_families
-                    (pango_cairo_font_map_get_default))])
-         (if (eq? mode 'mono)
-             (filter pango_font_family_is_monospace fams)
-             fams))))
+  (sort
+   (map pango_font_family_get_name
+	(let ([fams (pango_font_map_list_families
+		     (pango_cairo_font_map_get_default))])
+	  (if (eq? mode 'mono)
+	      (filter pango_font_family_is_monospace fams)
+	      fams)))
+   string<?))
 
 (define (make-font #:size [size 12]
                    #:face [face #f]