diff --git a/Data/Number/Natural.hs b/Data/Number/Natural.hs
--- a/Data/Number/Natural.hs
+++ b/Data/Number/Natural.hs
@@ -30,6 +30,12 @@
 
     (<=) = flip (>=)
 
+    S x `max` S y = S (x `max` y)
+    x   `max` y   = x + y
+
+    S x `min` S y = S (x `min` y)
+    _   `min` _   = Z
+
 maybeSubtract :: Natural -> Natural -> Maybe Natural
 a   `maybeSubtract` Z   = Just a
 S a `maybeSubtract` S b = a `maybeSubtract` b
diff --git a/numbers.cabal b/numbers.cabal
--- a/numbers.cabal
+++ b/numbers.cabal
@@ -1,5 +1,5 @@
 Name:		numbers
-Version:	2009.8.6.1
+Version:	2009.8.9
 License:	BSD3
 Author:		Lennart Augustsson
 Maintainer:	Lennart Augustsson