diff --git a/stumpwm/.stumpwmrc b/stumpwm/.stumpwmrc
index fda3412..927c682 100644
--- a/stumpwm/.stumpwmrc
+++ b/stumpwm/.stumpwmrc
@@ -36,4 +36,9 @@ after it has been unlocked."
 
 (swm-gaps:toggle-gaps)
 
+(with-message-queuing t
+  (let ((programs-in-path (programs-in-path)))
+   (unless (member "i3lock" programs-in-path :test #'string-equal)
+     (echo "Couldn't find the i3lock executable, can't lock screen"))))
+
 (swank:create-server :dont-close t)