diff --git a/CHANGES.md b/CHANGES.md
index 10744a74e3..502506aa65 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -467,6 +467,8 @@
     - Added `workspaceNamesRenameWS` which makes workspace names visible
       to external pagers and tools like `wmctrl` or `arbtt`.
 
+      TODO: drop this
+
   * `XMonad.Util.PureX`
 
     - Added `focusWindow` and `focusNth` which don't refresh (and thus
diff --git a/XMonad/Actions/WorkspaceNames.hs b/XMonad/Actions/WorkspaceNames.hs
index a307f5662b..e1312004a2 100644
--- a/XMonad/Actions/WorkspaceNames.hs
+++ b/XMonad/Actions/WorkspaceNames.hs
@@ -181,6 +181,8 @@ workspaceNamePrompt conf job = do
 --
 -- Usage:
 -- > ewmh' def{ workspaceRename = workspaceNamesRenameWS }
+--
+-- TODO: drop this, change EwmhConfig to use getWorkspaceNames directly
 workspaceNamesRenameWS :: X (WindowSpace -> WindowSpace)
 workspaceNamesRenameWS =
     getWorkspaceNames ":" <&> \names ws -> ws{ W.tag = names (W.tag ws) ws }