diff --git a/utils.rkt b/utils.rkt
index fe7aed5..0bcda42 100644
--- a/utils.rkt
+++ b/utils.rkt
@@ -382,7 +382,7 @@
 (module+ test
   (test-case "list-sets->list-strings"
     (check-equal? (list-sets->list-strings (list (set 'x 'y) (set 'z) (set) (set 't)))
-                  '("y x" "z" "" "t"))))
+                  '("x y" "z" "" "t"))))
 
 ;;; Pretty-prints a set of sets of symbols.
 ;;;
@@ -535,7 +535,7 @@
 (module+ test
   (test-case "collect-by-key/sets"
     (define-values (e3 l3) (collect-by-key/sets '(a b a) '(1 2 1)))
-    (check-equal? e3 '(a b)) (check-equal? l3 (list (set 1) (set 2)))))
+    (check-equal? e3 '(b a)) (check-equal? l3 (list (set 2) (set 1)))))
 
 ;;; Converts the values of a hash table from lists to sets.
 (define (ht-values/list->set ht)