diff --git a/stumpwm/.stumpwm.d/init.lisp b/stumpwm/.stumpwm.d/init.lisp
index a132db6..cf214cb 100644
--- a/stumpwm/.stumpwm.d/init.lisp
+++ b/stumpwm/.stumpwm.d/init.lisp
@@ -240,3 +240,11 @@
 ;; Syncthing Tray
 (run-shell-command "syncthingtray")
 
+;; Hack to get polybar to appear on startup
+(defcommand poke-modeline () ()
+  (mode-line)
+  (mode-line))
+(define-key *root-map* (kbd "C-m") "poke-modeline")
+
+;; (sleep 1)
+;; (poke-modeline)