diff --git a/core/src/main/scala/quasar/quark/reducefunc.scala b/core/src/main/scala/quasar/quark/reducefunc.scala
index ed4bdc6..8401b5c 100644
--- a/core/src/main/scala/quasar/quark/reducefunc.scala
+++ b/core/src/main/scala/quasar/quark/reducefunc.scala
@@ -21,7 +21,7 @@ object ReduceFunc {
   }
 
   def max[A <: Type]: ReduceFunc[A, A] = new ReduceFunc[A, A] {
-    def apply[G[_]: ReduceOps](v: G[A]): G[A] = ReduceOps[G].min(v)
+    def apply[G[_]: ReduceOps](v: G[A]): G[A] = ReduceOps[G].max(v)
   }
 
   def arbitrary[A <: Type]: ReduceFunc[A, A] = new ReduceFunc[A, A] {