diff --git a/src/XMonad/Custom/ProgramWorkSpaces.hs b/src/XMonad/Custom/ProgramWorkSpaces.hs
index f19b62c..8dbe2e8 100644
--- a/src/XMonad/Custom/ProgramWorkSpaces.hs
+++ b/src/XMonad/Custom/ProgramWorkSpaces.hs
@@ -45,13 +45,13 @@ quadrupleToPairBack (_, _, c, d) = (c, d)
 zipWithSnd :: (a -> b -> c) -> [(d,a)] -> [b] -> [(d,c)]
 zipWithSnd f = zipWith $ \(d,a) -> \b -> (d, f a b)
 
-first4 :: (a,b,c,d) -> a
-first4 (a, _, _, _) = a
+second4 :: (a,b,c,d) -> b
+second4 (_, b, _, _) = b
 
 
 -- | workSpaces itself
 myProgramWorkSpaces :: [String]
-myProgramWorkSpaces = map first4 myProgramWorkSpacesConfig
+myProgramWorkSpaces = map second4 myProgramWorkSpacesConfig
 
 
 -- | Bindings to move/focus to program workspaces