diff --git a/perspective-exwm.el b/perspective-exwm.el
index 3ca79f8..85d213c 100644
--- a/perspective-exwm.el
+++ b/perspective-exwm.el
@@ -199,8 +199,10 @@ detail."
                                          persp-name))
                                (cons i persp-name))))))
          (choice (cdr (assoc (completing-read "Select a perspective: " choices) choices))))
-    (exwm-workspace-switch (car choice))
-    (persp-switch (cdr choice))))
+    (exwm--defer
+     0 (lambda ()
+         (exwm-workspace-switch (car choice))
+         (persp-switch (cdr choice))))))
 
 ;;;###autoload
 (defun perspective-exwm-copy-to-workspace (&optional move)