 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) "log4slime" (log4slime-make-menubar-menu))
-    (easy-menu-define log4slime-menu log4slime-mode-map "log4slime" (log4slime-make-menubar-menu))))
+      (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)
 

                           (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))))))))))


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