diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,5 +1,9 @@
 # Changelog for interval-algebra
 
+## 0.6.2
+
+* Fixes bug in `equals` which was checking for equality of the interval container, not just the interval.
+
 ## 0.6.1
 
 * Removes the deriving `Show` instance for `PairedInterval`s so people can customize their own instances.
diff --git a/interval-algebra.cabal b/interval-algebra.cabal
--- a/interval-algebra.cabal
+++ b/interval-algebra.cabal
@@ -1,6 +1,6 @@
 cabal-version:  2.2
 name:           interval-algebra
-version:        0.6.1
+version:        0.6.2
 synopsis:       An implementation of Allen's interval algebra for temporal logic
 description:    Please see the README on GitHub at <https://github.com/novisci/interval-algebra>
 category:       Algebra,Time
diff --git a/src/IntervalAlgebra.hs b/src/IntervalAlgebra.hs
--- a/src/IntervalAlgebra.hs
+++ b/src/IntervalAlgebra.hs
@@ -413,7 +413,7 @@
 
     -- | Does x equal y?
     equals                 :: ComparativePredicateOf (i a)
-    equals   x y  = x == y
+    equals   x y  = begin x == begin y && end x == end y
 
     -- | Does x meet y? Is y metBy x?
     meets, metBy           :: ComparativePredicateOf (i a)
@@ -512,7 +512,7 @@
     moment' x = moment @a
 
     -- | Determine the duration of an @'i a'@.
-    duration :: Intervallic i a => i a-> b
+    duration :: Intervallic i a => i a -> b
     duration x = diff (end x) (begin x)
 
     -- | Shifts an @a@. Most often, the @b@ will be the same type as @a@. 
diff --git a/test/IntervalAlgebra/PairedIntervalSpec.hs b/test/IntervalAlgebra/PairedIntervalSpec.hs
--- a/test/IntervalAlgebra/PairedIntervalSpec.hs
+++ b/test/IntervalAlgebra/PairedIntervalSpec.hs
@@ -13,6 +13,8 @@
 t1 = mkTestPr "hi" 0 5
 t2 :: TestPair
 t2 = mkTestPr "bye" 6 10
+t3 :: TestPair
+t3 = mkTestPr "hello" 0 5
 
 spec :: Spec
 spec = do
@@ -22,4 +24,6 @@
                 (t1 `before` t2) `shouldBe` True
             it "duration of t1 is 5" $
                 duration t1 `shouldBe` 5
+            it "t1 is equal to t3" $
+                 (t1 `equals` t3) `shouldBe` True