Minor mode menu does not show up

[uzibalqa]

I am constructing a menu for a minor mode with the following code.

But I cannot get the menu to show up.

(defvar tika-menuitm-kmap
  (let ((menuitm-kmap (make-sparse-keymap)))
    (define-key menuitm-kmap [hide]
                (cons "Hide" (make-sparse-keymap "Hide")))
    (define-key menuitm-kmap [hide outl-hide-body]
                '(menu-item "Hide Body" outline-hide-body
                            :help "Hide bodies, visible headings"))
    (define-key menuitm-kmap [hide space]
                '(menu-item "--space"))
menuitm-kmap))

;;--------

(defvar tika-menubar-kmap

  (let ((menubar-kmap (make-sparse-keymap)))

    (define-key menubar-kmap [tika]
      (cons "Outl"
            (nconc (make-sparse-keymap "Outl Menu")

                   (apply #'append
                          (mapcar (lambda (x) (if (consp x) (cdr x)))
                                  tika-menuitm-kmap)))))

    menubar-kmap))

;;--------

(define-minor-mode tika-minor-mode
  :init-value nil
  :lighter " Tika"
  :keymap (define-keymap
            :suppress "<menu-bar>"
            :name tematika-menubar-kmap)