fix one last bug w.r.t. issue 55.

darcs-hash:20071012010509-72aca-98045b4e5f7b81fcfdd79b7d67f2420060463cd4.gz

1 files changed, 1 insertions, 1 deletions

diff --git a/Main.hs b/Main.hs
index 72b7c61..7748b40 100644
--- a/Main.hs
+++ b/Main.hs
@@ -256,6 +256,6 @@ handle (ConfigureEvent {ev_window = w}) = whenX (isRoot w) rescreen
 
 -- property notify
 handle PropertyEvent { ev_event_type = t, ev_atom = a }
-    | t == propertyNotify && a == wM_NAME = do logHook
+    | t == propertyNotify && a == wM_NAME = logHook `catchX` return ()
 
 handle e = broadcastMessage e -- trace (eventName e) -- ignoring