diff --git a/XMonad/Hooks/EWMH/Desktops.hs b/XMonad/Hooks/EWMH/Desktops.hs
index 41752820db..c60f01ef49 100644
--- a/XMonad/Hooks/EWMH/Desktops.hs
+++ b/XMonad/Hooks/EWMH/Desktops.hs
@@ -76,7 +76,7 @@ setEwmhWorkspaceListTransform f = XC.modifyDef $ \c -> c{ workspaceListTransform
 -- existing instead of replacing it.
 addEwmhWorkspaceListTransform :: ([WindowSpace] -> [WindowSpace]) -> XConfig l -> XConfig l
 addEwmhWorkspaceListTransform f = XC.modifyDef $ \c ->
-    c{ workspaceListTransform = workspaceListTransform c <> f }
+    c{ workspaceListTransform = f . workspaceListTransform c }
 
 ewmhDesktopsLogHook :: X ()
 ewmhDesktopsLogHook = XC.withDef $ \EwmhDesktopsConfig{workspaceListTransform} -> do