         (switch-to-buffer "*spacemacs*")
         (delete-other-windows)))
 
-    (defun persp-curr-name ()
+    (defun spacemacs/persp-curr-name ()
       (interactive)
       (safe-persp-name (get-frame-persp)))
 

     :buffer "*Helm Kill Perspectives with all their buffers*"
     :sources (helm-build-in-buffer-source
                  (s-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)))

