diff --git a/collects/planet/private/planet-shared.ss b/collects/planet/private/planet-shared.ss
index f752979643..0c4d549df8 100644
--- a/collects/planet/private/planet-shared.ss
+++ b/collects/planet/private/planet-shared.ss
@@ -267,7 +267,7 @@ Various common pieces of code that both the client and server need to access
               #f
               (let ((best-row
                      (car 
-                      (sort
+                      (quicksort
                        matches
                        (λ (a b) (> (assoc-table-row->min a) (assoc-table-row->min b)))))))
                 (make-pkg