                          (defdoc ,@default-doc))
                      (if bdoc
                          (lv-message (spacemacs//micro-state-propertize-doc
-                                      (concat ,(symbol-name name) ": " bdoc)))
+                                      (format "%S: %s" ',name bdoc)))
                        (when (and defdoc
                                   ',wrapped (not (plist-get ',binding :exit)))
                          (lv-message (spacemacs//micro-state-propertize-doc
-                                      (concat ,(symbol-name name) ": "
-                                              defdoc))))))))))
+                                      (format "%S: %s" ',name defdoc))))))))))
     (append (list (car binding) wrapper-func) binding)))
 
 (defun spacemacs//micro-state-fill-map-sexps (wrappers)


(defun spacemacs//micro-state-func-name (name)
  "Return the name of the micro-state function."
  (intern (format "spacemacs/%s-micro-state" (symbol-name name))))

(defun spacemacs//micro-state-create-wrappers (name doc bindings)
  "Return an alist (key wrapper) for each binding in BINDINGS."

         (binding-doc (spacemacs/mplist-get binding :doc))
         (binding-pre (spacemacs/mplist-get binding :pre))
         (binding-post (spacemacs/mplist-get binding :post))
         (wrapper-name (intern (format "spacemacs//%S-%S-%s" name wrapped key)))
         (wrapper-func
          (eval `(defun ,wrapper-name ()
                   "Auto-generated function"
