diff --git a/lib/amulet/list.ml b/lib/amulet/list.ml
index d5c926ce6..ee61e638d 100644
--- a/lib/amulet/list.ml
+++ b/lib/amulet/list.ml
@@ -228,14 +228,14 @@ and merge cmp = function
  *
  * Runtime: O(n log n)
  *)
-let sortBy cmp xs = merge_all cmp (sequences cmp xs)
+let sort_by cmp xs = merge_all cmp (sequences cmp xs)
 
 (** Sort a list using the polymorphic compare function, from the ord
  * typeclass.
  *
  * Runtime: O(n log n)
  *)
-let sort xs = sortBy compare xs
+let sort xs = sort_by compare xs
 
 (** Find an element in a list of key-value pairs.
  *