     ;;   file submenu, with current level checked
     ;;   current defun submenu with current level checked
     ;;
-    `("log4slime"
+    `("Log4CL"
       :active ,C
       :filter log4slime-filter-top
       ("+ROOT+" :filter log4slime-filter-root

                           (process-put conn 'log4slime-loaded (float-time))
                           (message "Can't load log4slime lisp support: %s." result)
                           nil)
                       (message "Successfully loaded log4slime lisp support")
                       (process-put conn 'log4slime-loaded t)
                       t))))))))))


global instead of local to files with `log4slime-mode' active"
  (easy-menu-define log4slime-popup-menu nil nil (log4slime-make-levels-menu 'log4slime-popup-logger)) 
  (if global 
      (easy-menu-define log4slime-menu (current-global-map) "Change Log4CL log levels" (log4slime-make-menubar-menu))
    (easy-menu-define log4slime-menu log4slime-mode-map "Change Log4CL log levels" (log4slime-make-menubar-menu))))

(log4slime-redefine-menus)

