     (defun spacemacs/persp-ms-kill ()
       "Kill current perspective"
       (interactive)
-      (persp-kill (persp-curr-name)))
+      (persp-kill (spacemacs/persp-curr-name)))
 
     (defun spacemacs/persp-ms-kill-other ()
       (interactive)

                            (helm-mini)))
  (defun spacemacs/helm-perspectives-source ()
    (helm-build-in-buffer-source
        (concat "Current Perspective: " (persp-curr-name))
      :data (persp-names)
      :fuzzy-match t
      :action

    (defun persp-format-name (name)
      "Format the perspective name given by NAME for display in `persp-modestring'."
      (let ((string-name (format "%s" name)))
        (if (equal name (spacemacs/persp-curr-name))
            (propertize string-name 'face 'persp-selected-face)
          string-name)))

