 
 (defun spacemacs//micro-state-func-name (name)
   "Return the name of the micro-state function."
-  (intern (format "spacemacs/%s-micro-state" (symbol-name name))))
+  (intern (format "spacemacs/%S-micro-state" 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"
                                       (symbol-name name)
                                       (symbol-name wrapped)
                                       key)))
         (wrapper-func
          (eval `(defun ,wrapper-name ()
                   "Auto-generated function"

         (wrappers (spacemacs//micro-state-create-wrappers name doc bindings))
         (keymap-body (spacemacs//micro-state-fill-map-sexps wrappers)))
    `(defun ,func ()
       ,(format "%S micro-state." name)
       (interactive)
       (let ((doc ,@doc))
         (when doc
           (lv-message (spacemacs//micro-state-propertize-doc
                        (format "%S: %s" ',name doc)))))
       ,@on-enter
       (,(if (version< emacs-version "24.4")
             'set-temporary-overlay-map
