diff --git a/roles/xmonad/files/xmonad_qwerty.hs b/roles/xmonad/files/xmonad_qwerty.hs
index 4bfc543..ff9a32a 100644
--- a/roles/xmonad/files/xmonad_qwerty.hs
+++ b/roles/xmonad/files/xmonad_qwerty.hs
@@ -7,9 +7,9 @@ import XMonad.Actions.Search (SearchEngine, openstreetmap, hackage, wikipedia, y
 
 import XMonad.Hooks.DynamicLog (PP(..), dynamicLogWithPP, filterOutWsPP, xmobarPP, xmobarColor, wrap, shorten)
 import XMonad.Hooks.ManageDocks (ToggleStruts(..), avoidStruts, docks)
-import XMonad.Hooks.DynamicProperty (dynamicPropertyChange)
 import XMonad.Hooks.SetWMName (setWMName)
 import XMonad.Hooks.WorkspaceHistory (workspaceHistoryHook)
+import XMonad.Hooks.OnPropertyChange (onXPropertyChange)
 
 import XMonad.Layout.Spacing (Spacing, spacingRaw, Border (..))
 import XMonad.Layout.LayoutModifier (ModifiedLayout)
@@ -249,7 +249,9 @@ myManageHook = composeAll . concat $
         myFloatingClasses = ["Gimp", "Origin"]
         myGames = ["Grim Dawn", "Der Herr der Ringe Online™", "Dota 2", "Project Zomboid", "Valheim", "Factorio", "Path of Exile", "Paradox Launcher", "Europa Universalis IV", "Bannerlord"]
 
-myEventHook = dynamicPropertyChange "WM_NAME" (title =? "Database.kdbx - KeePassXC" <||> title =? "Database.kdbx [Gesperrt] - KeePassXC" --> floating)
+myEventHook = mconcat 
+    [ onXPropertyChange "WM_NAME" (title =? "Database.kdbx - KeePassXC" <||> title =? "Database.kdbx [Gesperrt] - KeePassXC" --> floating)
+    ]
     where floating = customFloating $ W.RationalRect (1/8) (1/8) (3/4) (3/4)
 
 -- Startup hook