Index: main/form.lisp
===================================================================
--- main/form.lisp	(revision main,47)
+++ main/form.lisp	(revision main,63)
@@ -226,10 +226,10 @@
 
 
-(defmethod activate ((form form) &optional (callback 'nothing))
+(defmethod activate ((form form) &key (key-callback 'nothing) &allow-other-keys)
   (with-slots (peers) form
     (flet ((callback (key)
              (if (member key '(#\Return #\Newline #\Tab :key-btab))
                  key
-                 (funcall callback key))))
+                 (funcall key-callback key))))
       (let ((focus 0)
             (n (length peers)))
@@ -237,5 +237,5 @@
            (ensure-widget-visible form focus)
            (refresh form)
-           (let ((key (activate (aref peers focus) #'callback)))
+           (let ((key (activate (aref peers focus) :key-callback #'callback)))
              (case key
                ((#\Return #\Newline #\Tab)