From 343c734291c61bb91d54261dae50f78d46ccad1b Mon Sep 17 00:00:00 2001
From: Jacob Matthews <jacobm@cs.uchicago.edu>
Date: Wed, 28 Jun 2006 06:59:12 +0000
Subject: [PATCH] .

svn: r3517
---
 collects/planet/private/planet-shared.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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