diff --git a/CHANGES.md b/CHANGES.md
index 0bb47551..5392c234 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -173,8 +173,14 @@
       [polybar issue](https://github.com/polybar/polybar/issues/2603)).
 
   * `XMonad.Hooks.StatusBar`
+
     - Added `startAllStatusBars` to start the configured status bars.
 
+  * `XMonad.Util.NamedActions`
+
+    - Changed `addDescrKeys` and `addDescrKeys'` to not discard the
+      keybindings in the current config.
+
 ### Other changes
 
 ## 0.17.1 (September 3, 2022)
diff --git a/XMonad/Util/NamedActions.hs b/XMonad/Util/NamedActions.hs
index d12aabe0..22bfdee8 100644
--- a/XMonad/Util/NamedActions.hs
+++ b/XMonad/Util/NamedActions.hs
@@ -205,7 +205,7 @@ addDescrKeys' :: (HasName b) =>
 addDescrKeys' (k,f) ks conf =
     let shk l = f $ [(k,f $ ks l)] ^++^ ks l
         keylist l = M.map getAction $ M.fromList $ ks l ^++^ [(k, shk l)]
-    in conf { keys = keylist }
+     in conf { keys = keylist <> keys conf }
 
 -- | A version of the default keys from the default configuration, but with
 -- 'NamedAction'  instead of @X ()@