diff --git a/stumpwm/.stumpwm.d/init.lisp b/stumpwm/.stumpwm.d/init.lisp
index 8d12ecc..75c19a1 100644
--- a/stumpwm/.stumpwm.d/init.lisp
+++ b/stumpwm/.stumpwm.d/init.lisp
@@ -15,10 +15,10 @@
   "Prompts the user for a password"
   (read-one-line (current-screen) prompt :password t))
 
-(defmacro run-sudo-command (cmd)
+(defmacro run-sudo-command (cmd &optional collect-output-p)
   `(run-shell-command
     (format nil "SUDO_ASKPASS=~~/bin/stumpwm-sudo.sh sudo -A ~S" ,cmd)
-    t))
+    ,collect-output-p))
 
 ;; Commands
 (defcommand shutdown () ()