diff --git a/Numeric/Interval.hs b/Numeric/Interval.hs
--- a/Numeric/Interval.hs
+++ b/Numeric/Interval.hs
@@ -190,7 +190,7 @@
 divPositive :: (Fractional a, Ord a) => Interval a -> a -> Interval a 
 divPositive x@(I a b) y
     | a == 0 && b == 0 = x
-    -- | b < 0 || isNegativeZero b = negInfinity `I` ( b / y)
+    -- b < 0 || isNegativeZero b = negInfinity `I` ( b / y)
     | b < 0 = negInfinity `I` ( b / y)
     | a < 0 = whole 
     | otherwise = (a / y) `I` posInfinity
@@ -199,7 +199,7 @@
 divNegative :: (Fractional a, Ord a) => Interval a -> a -> Interval a
 divNegative x@(I a b) y
     | a == 0 && b == 0 = - x -- flip negative zeros
-    -- | b < 0 || isNegativeZero b = (b / y) `I` posInfinity
+    -- b < 0 || isNegativeZero b = (b / y) `I` posInfinity
     | b < 0 = (b / y) `I` posInfinity
     | a < 0 = whole
     | otherwise = negInfinity `I` (a / y)
diff --git a/intervals.cabal b/intervals.cabal
--- a/intervals.cabal
+++ b/intervals.cabal
@@ -1,5 +1,5 @@
 Name:              intervals
-Version:           0.2.0
+Version:           0.2.0.1
 Synopsis:          Interval Arithmetic
 Description:
     A 'Numeric.Interval.Interval' is a closed, convex set of floating point values.