diff --git a/XMonad/Util/Timer.hs b/XMonad/Util/Timer.hs
index 8a0e2216..7e4c50bd 100644
--- a/XMonad/Util/Timer.hs
+++ b/XMonad/Util/Timer.hs
@@ -41,7 +41,7 @@ startTimer s = io $ do
     a <- internAtom d "XMONAD_TIMER" False
     allocaXEvent $ \e -> do
          setEventType e clientMessage
-         setClientMessageEvent e rw a 32 (fromIntegral u) currentTime
+         setClientMessageEvent e rw a 32 (fromIntegral u) 0
          sendEvent d rw False structureNotifyMask e
     sync d False
   return u
diff --git a/scripts/xmonadctl.hs b/scripts/xmonadctl.hs
index ca9bee64..5adad542 100644
--- a/scripts/xmonadctl.hs
+++ b/scripts/xmonadctl.hs
@@ -48,7 +48,7 @@ sendCommand addr s = do
   m <- internAtom d s False
   allocaXEvent $ \e -> do
                   setEventType e clientMessage
-                  setClientMessageEvent e rw a 32 m currentTime
+                  setClientMessageEvent e rw a 32 m 0
                   sendEvent d rw False structureNotifyMask e
                   sync d False