web-i18n: fix locale detection0.5.3

1 files changed, 3 insertions, 3 deletions

diff --git a/src/scm/webid-oidc/web-i18n.scm b/src/scm/webid-oidc/web-i18n.scm
index d3a773f..54d0c36 100644
--- a/src/scm/webid-oidc/web-i18n.scm
+++ b/src/scm/webid-oidc/web-i18n.scm
@@ -36,17 +36,17 @@
   (make-mutex))
 
 (define sort-qlist
-  (cute sort <>
+  (cute stable-sort <>
         (match-lambda*
           (((px . _) (py . _))
-           (>= px py)))))
+           (> px py)))))
 
 (define get-preferred-language
   (match-lambda
     ((? request?
         (= request-accept-language
            (= sort-qlist
-              (((_ . language) _ ...)))))
+              ((_ . language) _ ...))))
      (get-preferred-language language))
     ((? string?
         (= (cute string-split <> #\-)