diff --git a/xmonad.hs b/xmonad.hs
index b7fd3c0..fc0afad 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -41,4 +41,5 @@ main = do
 			`additionalKeysP`
 			[ ("M-p", shellPrompt defaultXPConfig { position = Top })
 			, ("M-b", sendMessage ToggleStruts)
+			, ("M-S-l", spawn "~/bin/lock")
 			]