diff --git a/logging.lisp b/logging.lisp
index f132535..758766c 100644
--- a/logging.lisp
+++ b/logging.lisp
@@ -17,7 +17,7 @@
 (defun setup(cfg)
   (let ((loglevel (config:from-env :loglevel (loglevel cfg)))
         (logfile (config:from-env :logfile (logfile cfg)))
-        (pat "%&%<%I%;<;;>;-5p [%D{%H:%M:%S}] %g{}{}{:downcase}%:; ;F%2.2N - %:_%m%>%n")
+        (pat "%&%<%I%;<;;>;-5p [%D{%H:%M:%S}] %g{}{}{:downcase}:%2.2N%C{1}{}{:downcase} - %:_%m%>%n")
         params)
     (if (stringp loglevel)
       (setf loglevel (util:to-keyword loglevel)))