Index: main/widget/label.lisp
===================================================================
--- main/widget/label.lisp	(revision main,46)
+++ main/widget/label.lisp	(revision main,63)
@@ -29,5 +29,4 @@
 (defmethod destroy ((label label)))
 
-(defmethod activate ((label label) &optional callback)
-  (declare (ignore callback))
-  #\Tab)
+(defmethod activate ((label label) &key &allow-other-keys)
+   #\Tab)