(let* ((nav
           (make-navigation
             'main-menu
             'self (make-instance 'composite :widgets (list
		(let ((self-widg (make-instance 'composite)))
                     (setf (composite-widgets self-widg)
                           (list
                             (lambda ()
                               (with-flow
                                 self-widg
                                 (cond
                                   ((not (authenticatedp))
                                    (yield
                                      (make-instance
                                        'login
                                        :view 'my-login-view
                                        :on-login #'check-login)))
                                   (t
                                    (yield (make-instance 'composite :widgets (list "Go You."))))))
                               (redirect "/self"))))
                     self-widg))))))
	nav)