diff --git a/data-clist.cabal b/data-clist.cabal
--- a/data-clist.cabal
+++ b/data-clist.cabal
@@ -5,7 +5,7 @@
              Given that the ring terminiology clashes with certain
              mathematical branches, we're using the term CList or
              CircularList instead.
-Version: 0.0.7.1
+Version: 0.0.7.2
 License: BSD3
 License-File: LICENSE
 Author: John Van Enk <vanenkj@gmail.com>
diff --git a/src/Data/CircularList.hs b/src/Data/CircularList.hs
--- a/src/Data/CircularList.hs
+++ b/src/Data/CircularList.hs
@@ -326,21 +326,13 @@
    return (fromList xs,t)
 
 instance (Eq a) => Eq (CList a) where
-  a == b = any (identical a) . toList $ allRotations b
+  a == b = any ((toList a ==) . toList) . toList $ allRotations b
 
 instance (NFData a) => NFData (CList a) where
   rnf Empty         = ()
   rnf (CList l f r) = rnf f
                       `seq` rnf l
                       `seq` rnf r
-
--- |Determine if two 'CList's are structurally identical.
-identical :: (Eq a) => CList a -> CList a -> Bool
-identical Empty Empty = True
-identical (CList ls1 f1 rs1) (CList ls2 f2 rs2) = f1 == f2
-                                                  && ls1 == ls2
-                                                  && rs1 == rs2
-identical _ _ = False
 
 instance Arbitrary a => Arbitrary (CList a) where
     arbitrary = frequency [(1, return Empty), (10, arbCList)]