Index: main/widget/label.lisp
===================================================================
--- main/widget/label.lisp	(revision main,45)
+++ main/widget/label.lisp	(revision main,46)
@@ -30,3 +30,4 @@
 
 (defmethod activate ((label label) &optional callback)
+  (declare (ignore callback))
   #\Tab)