diff --git a/oni/home/services/stumpwm/config b/oni/home/services/stumpwm/config
index 544096c..ac26c9f 100644
--- a/oni/home/services/stumpwm/config
+++ b/oni/home/services/stumpwm/config
@@ -22,7 +22,7 @@ Run `*screen-locking-hook*' before locking it and run `*screen-unlocked-hook*'
 after it has been unlocked."
   (run-hook *screen-locking-hook*)
   (sb-ext:run-program
-   "/usr/bin/i3lock" '("--nofork" "--color=000000")
+   *shell-program* '("-c" "i3lock" "--nofork" "--color=000000")
    :wait nil
    :status-hook #'run-screen-unlocked-hook))