diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp
index 47d2bc397d22c08c86d7f05787e756952d72deff..03f53a89f4b617f3a314d50e9caa3f89f339b9b5 100644
--- a/uiop/run-program.lisp
+++ b/uiop/run-program.lisp
@@ -767,7 +767,7 @@ It returns a process-info plist with possible keys:
         (reduce/strcat
          (os-cond
           ((os-unix-p) `(,@(when redirections `("exec " ,@redirections " ; ")) ,@chdir ,normalized))
-          ((os-windows-p) `(,@chdir @redirections ,normalized)))))))
+          ((os-windows-p) `(,@chdir ,@redirections ,normalized)))))))
 
   (defun %system (command &rest keys
                   &key input output error-output directory &allow-other-keys)