 
 ;; these have to match what backend prints, they are used in highlighting regexp
 (defvar log4slime-real-level-names
-  '("Off" "Fatal" "Error" "Warn" "Info" "Debug" 
+  '("Off" "Fatal" "Error" "Warn" "Info" "Debug"
     "Debu1" "Debu2" "Debu3" "Debu4" "Trace" "Debu5" "Debu6"
     "Debu7" "Debu8" "Debu9"))
 

;;   :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

                 (length table)))
         ret)
    (while (plusp ncol)
      (catch 'exit
        (setq cw (loop repeat ncol collect (loop repeat nsubcol collect 0)))
        ;; lay down
        (let ((row 0)
              (col 0)
              (subcol 0))
          (dolist (e table)
            (setq subcol 0)
            (dolist (e e)
              (let* ((len (max
                           (nth subcol (nth col cw))
                           (length e))))
