diff --git a/Main.hs b/Main.hs
index c259d74..1b7dc92 100644
--- a/Main.hs
+++ b/Main.hs
@@ -42,7 +42,6 @@ main = do
 
     let st = XState
             { display       = dpy
-            , screen        = dflt
             , xineScreens   = xinesc
             , wsOnScreen    = M.fromList $ map (\n -> (n,n)) [0..((length xinesc)-1)]
             , theRoot       = rootw
diff --git a/XMonad.hs b/XMonad.hs
index 2ab1d70..38e6370 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -34,7 +34,6 @@ import qualified Data.Map as M
 -- Just the display, width, height and a window list
 data XState = XState
     { display           :: Display                 -- ^ the X11 display
-    , screen            :: !ScreenNumber
 
     , xineScreens       :: ![Rectangle]            -- ^ dimensions of each screen