diff --git a/Network/Netclock/Client.hs b/Network/Netclock/Client.hs
--- a/Network/Netclock/Client.hs
+++ b/Network/Netclock/Client.hs
@@ -39,7 +39,7 @@
 waitBeat :: BpsChange -> Double -> IO ()
 waitBeat change beat = 
     do let logicalNow = logicalTime change beat
-       realNow <- utcr
+       realNow <- time
        let diff = logicalNow - realNow
        let delay = floor $ diff * 1000000.0
        when (diff > 0) $ threadDelay delay
@@ -50,7 +50,7 @@
   do mBps <- newEmptyMVar
      forkIO $ bpsListen username clientIp serverIp mBps
      change <- updateBps mBps 0
-     realNow <- utcr
+     realNow <- time
      let diff = realNow - changeTime change
          bps = changeBps change
          beat = changeBeat change + (diff * bps)
@@ -65,7 +65,7 @@
     do mBps <- newEmptyMVar
        forkIO $ bpsListen username clientIp serverIp mBps
        change <- updateBps mBps 0
-       realNow <- utcr
+       realNow <- time
        let diff = realNow - changeTime change
            bps = changeBps change
            beat = changeBeat change + (diff * bps)
@@ -134,9 +134,8 @@
        let (Message _ (absBeat:bps:_)) = head message
            absBeatF = toFloat absBeat
            bpsF = toFloat bps
-       let time = (as_utcr t)
        return BpsChange {changeBps = bpsF,
-                         changeTime = time, 
+                         changeTime = t, 
                          changeBeat = absBeatF
                         }
 
diff --git a/netclock.cabal b/netclock.cabal
--- a/netclock.cabal
+++ b/netclock.cabal
@@ -7,7 +7,7 @@
 -- The package version. See the Haskell package versioning policy
 -- (http://www.haskell.org/haskellwiki/Package_versioning_policy) for
 -- standards guiding when and how versions should be incremented.
-Version:             0.4
+Version:             0.5
 
 -- A short (one-line) description of the package.
 Synopsis:            Netclock protocol