diff --git a/modules/ui/workspaces/autoload/workspaces.el b/modules/ui/workspaces/autoload/workspaces.el
index 6143b580c..6140ee535 100644
--- a/modules/ui/workspaces/autoload/workspaces.el
+++ b/modules/ui/workspaces/autoload/workspaces.el
@@ -76,7 +76,7 @@ error if NAME doesn't exist."
 ;;;###autoload
 (defun +workspace-list-names ()
   "Return the list of names of open workspaces."
-  (cdr persp-names-cache))
+  (mapcar #'safe-persp-name (+workspace-list)))
 
 ;;;###autoload
 (defun +workspace-buffer-list (&optional persp)