Index: main/flat-menu.lisp
===================================================================
--- main/flat-menu.lisp	(revision main,19)
+++ main/flat-menu.lisp	(revision main,39)
@@ -55,9 +55,6 @@
   (redraw-selected menu nil))
 
-(defun bound (a b c)
-  (min (max a b) c))
-
 (defmethod (setf selected) :around (i (menu menu))
-  (call-next-method (bound 0 i (1- (length (slot-value menu 'entries)))) menu))
+  (call-next-method (bound i 0 (1- (length (slot-value menu 'entries)))) menu))
 
 (defmethod (setf selected) :after (i (menu menu))