diff --git a/record/record_test.go b/record/record_test.go
index baabe95..c2f5a58 100644
--- a/record/record_test.go
+++ b/record/record_test.go
@@ -109,7 +109,7 @@ func ExampleFoldMap() {
 		"c": "c",
 	}
 
-	fold := FoldMap[string, string](S.Monoid)(strings.ToUpper)
+	fold := FoldMapOrd[string, string](S.Ord)(S.Monoid)(strings.ToUpper)
 
 	fmt.Println(fold(src))