Index: main/form.lisp
===================================================================
--- main/form.lisp	(revision main,87)
+++ main/form.lisp	(revision main,89)
@@ -287,11 +287,11 @@
              (refresh form)
              (let ((key (activate (f-peer) :key-callback #'callback)))
-               (case key
-                 ((#\Return #\Newline #\Tab :key-down)
-                  (incf focus)
-                  (boundf focus 0 (1- n)))
-                 ((:key-btab :key-up)
-                  (decf focus)
-                  (boundf focus 0 (1- n)))
+               (cond
+                 ((and (member key '(#\Return #\Newline #\Tab :key-down))
+                       (< focus (1- n)))
+                  (incf focus))
+                 ((and (member key '(:key-btab :key-up))
+                       (> focus 0))
+                  (decf focus))
                  (t
                   (return-from activate key))))))))))