kmx.io/cl-thot

diff --git a/mime.lisp b/mime.lisp
index 85da5ee..b0b8398 100644
--- a/mime.lisp
+++ b/mime.lisp
@@ -54,7 +54,7 @@
                         ((not (symbolp sym)))
                         ((mime-type-p sym) (setf mime-type sym))
                         (mime-type (let ((ext (ext sym)))
-                                     (when (debug-p :mime)
+                                     (when (debug-p :mime.types)
                                        (msg mime ext " " mime-type))
                                      (setf (mime-type ext)
                                            mime-type)))))))