diff --git a/Data/DFrac.hs b/Data/DFrac.hs
--- a/Data/DFrac.hs
+++ b/Data/DFrac.hs
@@ -9,9 +9,14 @@
   }
 
 instance Eq DFrac where
-  x == y = number x == number y
+  x == y = number x == number y && places x == places y
 instance Ord DFrac where
-  compare x y = compare (number x) (number y)
+  compare x y =
+    case compare (number x) (number y) of
+      EQ ->
+        compare (places x) (places y)
+      c ->
+        c
 
 instance Num DFrac where
   x + y = dfrac min x y $ number x + number y
diff --git a/dfrac.cabal b/dfrac.cabal
--- a/dfrac.cabal
+++ b/dfrac.cabal
@@ -2,7 +2,7 @@
 --  see http://haskell.org/cabal/users-guide/
 
 name:                dfrac
-version:             0.1.1.2
+version:             0.1.2.0
 synopsis:            A package for precise decimal arithmatic using rationals.
 description:            A package for precise decimal arithmatic using rationals.
 license:             MIT