diff --git a/XMonad/Hooks/DebugEvents.hs b/XMonad/Hooks/DebugEvents.hs
index fb9b95699..1976e6a70 100644
--- a/XMonad/Hooks/DebugEvents.hs
+++ b/XMonad/Hooks/DebugEvents.hs
@@ -31,8 +31,6 @@ import           XMonad.Prelude                       hiding (fi, bool)
 import           XMonad.Hooks.DebugKeyEvents                 (debugKeyEvents)
 import           XMonad.Util.DebugWindow                     (debugWindow)
 
--- import           Graphics.X11.Xlib.Extras.GetAtomName        (getAtomName)
-
 import           Control.Exception                    as E
 import           Control.Monad.Fail
 import           Control.Monad.State
@@ -192,6 +190,7 @@ debugEventsHook' _                      = return ()
 
 -- | Emit information about an atom.
 atomName   :: Atom -> X String
+atomName 0 =  return "-none-"
 atomName a =  withDisplay $ \d ->
   io $ fromMaybe ("(unknown atom " ++ show a ++ ")") <$> getAtomName d a