diff --git a/collects/macro-debugger/syntax-browser/pretty-range.ss b/collects/macro-debugger/syntax-browser/pretty-range.ss
index 78a5c118a3..600e15f140 100644
--- a/collects/macro-debugger/syntax-browser/pretty-range.ss
+++ b/collects/macro-debugger/syntax-browser/pretty-range.ss
@@ -24,7 +24,7 @@
         (hash-table-get ranges obj (lambda _ null)))
       
       (define/public (all-ranges)
-        (quicksort 
+        (sort 
          (apply append 
                 (hash-table-map
                  ranges
diff --git a/collects/macro-debugger/view/gui.ss b/collects/macro-debugger/view/gui.ss
index 4d6309669f..e5b3ddf5f0 100644
--- a/collects/macro-debugger/view/gui.ss
+++ b/collects/macro-debugger/view/gui.ss
@@ -541,11 +541,11 @@
           (define (oid id) (*i "hide" 'identifier id))
           (define (tid id) (*i "show" 'show-identifier id))
           (let ([choices
-                 (quicksort (append (map om opaque-modules)
-                                    (map oid opaque-ids)
-                                    (map tid transparent-ids))
-                            (lambda (a b)
-                              (string<=? (car a) (car b))))])
+                 (sort (append (map om opaque-modules)
+                               (map oid opaque-ids)
+                               (map tid transparent-ids))
+                       (lambda (a b)
+                         (string<=? (car a) (car b))))])
             (send look-ctl clear)
             (for-each (lambda (c) (send look-ctl append (car c) (cdr c)))
                       choices))))