        ,@(rest (log4cl-make-levels-menu 'log4cl-package-logger)))
       ("Source File" :filter log4cl-filter-file
        ,@(rest (log4cl-make-levels-menu 'log4cl-file-logger)))
-      ("Current Form" :filter log4cl-filter-defun
+      ("Defun" :filter log4cl-filter-defun
        ,@(rest (log4cl-make-levels-menu 'log4cl-defun-logger))))))
 
 (defun log4cl-filter-root (args)

   for section-char = (aref section 0)
   for section-map = (make-sparse-keymap)
   do (progn
        (dolist (level '("parent" "off" "fatal" "error" "warn" "info" "debug"
                         "debu1" "debu2" "debu3" "debu4" "trace"
                         "debu5" "debu6" "debu7" "debu8" "debu9"
                         "reset"))
          (let ((level-char (aref level (if (string-match "debu[0-9]" level)
                                            4 0)))
                (cmd (unless (and (equal section "root")
                                  (equal level "parent")) 
                       (intern (format "log4cl-%s-%s" section level)))))
            (when cmd 
              (define-key section-map (read-kbd-macro (format "C-%c" level-char)) cmd)

  (defun log4cl-root-debu9 (&optional arg) (interactive "P") (log4cl-cmd-set-root-level arg 15))
  (defun log4cl-root-reset (&optional arg) (interactive "P") (log4cl-cmd-set-root-level arg :reset))

  (defun log4cl-package-unset   (&optional arg) (interactive "P") (log4cl-cmd-set-package-level arg nil))
  (defun log4cl-package-off   (&optional arg) (interactive "P") (log4cl-cmd-set-package-level arg 0))
  (defun log4cl-package-fatal (&optional arg) (interactive "P") (log4cl-cmd-set-package-level arg 1))
  (defun log4cl-package-error (&optional arg) (interactive "P") (log4cl-cmd-set-package-level arg 2))
