diff --git a/modules/feature/workspaces/autoload/workspaces.el b/modules/feature/workspaces/autoload/workspaces.el
index 7c1bfb319..aae398217 100644
--- a/modules/feature/workspaces/autoload/workspaces.el
+++ b/modules/feature/workspaces/autoload/workspaces.el
@@ -316,7 +316,7 @@ end of the workspace list."
   (interactive (list 1))
   (condition-case ex
       (let ((persp-switch-wrap t))
-        (dotimes (i n)
+        (dotimes (i (abs n))
           (if (> n 0)
               (persp-next)
             (persp-prev)))
@@ -324,6 +324,12 @@ end of the workspace list."
           (+workpace/display)))
     ('error (+workspace-error (cadr ex) t))))
 
+;;;###autoload
+(defun +workspace/switch-left ()  (interactive) (+workspace/cycle -1))
+
+;;;###autoload
+(defun +workspace/switch-right () (interactive) (+workspace/cycle +1))
+
 ;;;###autoload
 (defun +workspace/close-window-or-workspace ()
   "Close the selected window. If it's the last window in the workspace, close