diff --git a/pulseaudio.cabal b/pulseaudio.cabal
--- a/pulseaudio.cabal
+++ b/pulseaudio.cabal
@@ -10,7 +10,7 @@
 -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             0.0.2.0
+version:             0.0.2.1
 
 -- A short (one-line) description of the package.
 synopsis:            A low-level (incomplete) wrapper around the pulseaudio client asynchronous api
@@ -119,7 +119,7 @@
   -- other-extensions:    
   
   -- Other library packages from which modules are imported.
-  build-depends:       base >=4.6 && <4.10
+  build-depends:       base >=4.6 && <5
                       ,unix
                       ,stm
                       ,containers
diff --git a/src/Data/Time.hsc b/src/Data/Time.hsc
--- a/src/Data/Time.hsc
+++ b/src/Data/Time.hsc
@@ -94,10 +94,10 @@
     else let new = ln -rn
              cap = 1000 * 1000 * 1000
              over = if new < 0
-                     then (-1)
+                     then 1
                      else 0
              capped = new `mod` cap
-         in PATime (ls - rs + over) capped
+         in PATime (ls - rs - over) capped
 
 -- |Convert from Microseconds to 'PATime'
 timeFromUS :: Word -> PATime