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))
Index: main/grid/display.lisp
===================================================================
--- main/grid/display.lisp	(revision main,26)
+++ main/grid/display.lisp	(revision main,39)
@@ -113,7 +113,4 @@
 
 
-(defun bound (a b c)
-  (min (max a b) c))
-
 (defmethod max-row-scroll ((grid grid))
   (with-slots (data header-rows window) grid
@@ -121,5 +118,5 @@
 
 (defmethod (setf row-scroll) :around (i (grid grid))
-  (call-next-method (bound 0 i (max-row-scroll grid)) grid))
+  (call-next-method (bound i 0 (max-row-scroll grid)) grid))
 
 (defmethod row-scroll-percent ((grid grid))
@@ -131,5 +128,5 @@
 
 (defmethod (setf column-scroll) :around (i (grid grid))
-  (call-next-method (bound 0 i (max-column-scroll grid)) grid))
+  (call-next-method (bound i 0 (max-column-scroll grid)) grid))
 
 (defmethod column-scroll-percent ((grid grid))