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