diff --git a/examples/album.lisp b/examples/album.lisp
index 66d9c70..2a23bbf 100644
--- a/examples/album.lisp
+++ b/examples/album.lisp
@@ -67,8 +67,7 @@ Example usage:
   ; provided content."
   `(spinneret:with-html
      (:h4 "About")
-     (:p :class ,(concatenate 'string
-                              (if color (apply #'cl-sbt/utility:color color) ""))
+     (:p :class ,(apply #'cl-sbt/utility:color color)
          ,@body)))
 
 (defmacro contact (&rest rest)