diff --git a/src/content.lisp b/src/content.lisp
index 43089d6..8250f0b 100644
--- a/src/content.lisp
+++ b/src/content.lisp
@@ -31,7 +31,8 @@
          (field-name (line)
            (make-keyword (string-upcase (subseq line 0 (position #\: line)))))
          (read-delimited (str &optional (delimiter ", "))
-           (mapcar #'string-downcase (cl-ppcre:split delimiter str))))
+           (mapcar (compose #'slugify #'string-downcase)
+                   (cl-ppcre:split delimiter str))))
     (with-open-file (in file)
       (unless (string= (read-line in) ";;;;;")
         (error "The provided file lacks the expected header."))