Index: main/flat-menu.lisp
===================================================================
--- main/flat-menu.lisp	(revision main,10)
+++ main/flat-menu.lisp	(revision main,11)
@@ -92,4 +92,5 @@
     (with-accessors ((selected selected)) menu
       (loop
+         (cdk::c-refresh-window window)
          (let ((ch (cdk::c-wgetch window)))
            (cond