diff --git a/XMonad.hs b/XMonad.hs
index cf72908..501e684 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -98,7 +98,7 @@ catchX (X job) (X errcase) = do
 -- | Execute the argument, catching all exceptions.  Either this function or
 -- catchX should be used at all callsites of user customized code.
 userCode :: X () -> X ()
-userCode a = catchX a (return ())
+userCode a = catchX (a >> return ()) (return ())
 
 -- ---------------------------------------------------------------------
 -- Convenient wrappers to state