       :label ,T
       :style radio
       :selected ,S
-      ,@(unless (eq info-symbol 'log4slime-popup-logger) 
+      ,@(unless (eq info-symbol 'log4slime-popup-logger)
           `(:keys ,(log4slime-make-keys-string info-symbol level)))
       ;; :active (not ,S)
       ]))

;;   :rest            "foo bar"
;;   :file            "whatever.lisp"
;;   :display-name    "foo bar"
;;   
;; For the "com.openchat" logger values will be:
;; 
;;   :package         "com.openchat.log4slime.test"
;;   :rest            nil
;;   :file            nil

          (setq methodp (equalp type "method")))
        ;; back to common case
        (goto-char (scan-sexps (scan-sexps (point) 1) -1))
        (setq name
              (if (looking-at "(")
                  (save-excursion
                    (forward-char 1)
