diff --git a/src/backend/modern.lisp b/src/backend/modern.lisp
index 5e1be3b..8d79ef9 100644
--- a/src/backend/modern.lisp
+++ b/src/backend/modern.lisp
@@ -128,7 +128,8 @@ as a fallback when a keyword is not in *named-colors*.")
   (backend-write b (format nil "~C[?1006h" #\Esc))  ; SGR mouse
   (backend-write b (format nil "~C[?2004h" #\Esc))  ; bracketed paste
   (backend-write b (format nil "~C[?u" #\Esc))      ; kitty keyboard
-  (cursor-hide b)
+  (cursor-style b :block :blink t)
+  (cursor-show b)
   (finish-output (backend-output-stream b))
   b)