diff --git a/collects/meta/drdr2/lib/pqueue.rkt b/collects/meta/drdr2/lib/pqueue.rkt index 8d1554c9a9..931044776b 100644 --- a/collects/meta/drdr2/lib/pqueue.rkt +++ b/collects/meta/drdr2/lib/pqueue.rkt @@ -30,9 +30,7 @@ (define (pqueue-dequeue! pq) (match-define (pqueue dir) pq) - (match (sort (directory-list (pqueue-dest dir)) - string<=? - #:key path->string) + (match (directory-list (pqueue-dest dir)) [(list-rest choice _) (define dest (build-path (pqueue-dest dir) choice))