Index: main/widget/textbox.lisp
===================================================================
--- main/widget/textbox.lisp	(revision main,63)
+++ main/widget/textbox.lisp	(revision main,65)
@@ -92,4 +92,5 @@
                      &allow-other-keys)
   (with-slots (data window active) textbox
+    (set-cursor-visible t)
     (setf active t)
     (unwind-protect
@@ -128,3 +129,4 @@
                                (concatenate 'string left (string key) right))
                          (incf (insertion-point textbox)))))))))
-      (setf active nil))))
+      (setf active nil)
+      (set-cursor-visible nil))))