diff --git a/Data/AEq.hs b/Data/AEq.hs
index 58a21f0..5defbfe 100644
--- a/Data/AEq.hs
+++ b/Data/AEq.hs
@@ -74,7 +74,7 @@ class Eq a => AEq a where
 approxEqIEEE :: (IEEE a) => a -> a -> Bool
 approxEqIEEE x y =
     ( sameSignificandBits x y >= d
-    || (x < epsilon && y < epsilon)
+    || (abs x < epsilon && abs y < epsilon)
     || (isNaN x && isNaN y)
     )
   where
@@ -585,4 +585,4 @@ instance (AEq a, AEq b, AEq c, AEq d, AEq e, AEq f, AEq g, AEq h, AEq i, AEq j,
         && ((~==) n1 n2)
         && ((~==) o1 o2)
         )
-    {-# INLINE (~==) #-}
\ No newline at end of file
+    {-# INLINE (~==) #-}