diff --git a/bin/xmonad.hs b/bin/xmonad.hs
index 7f3ab19..be475d1 100644
--- a/bin/xmonad.hs
+++ b/bin/xmonad.hs
@@ -138,7 +138,9 @@ evalConf db@DBusState { dbSysClient = cl } = do
   -- start DBus interfaces first since many features after this test these
   -- interfaces as dependencies
   let fs = features cl
+  io $ putStrLn "hi"
   startDBusInterfaces fs
+  io $ putStrLn "dbus started"
   (xmobarHandle, ts) <- startChildDaemons fs
   io $ putStrLn "child daemons started"
   startRemovableMon fs