diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp
index c234a9f901dc83f1a5db984ff83145e60088c62d..df1e289542162d055be8cdb1ecf5464cadb9ff36 100644
--- a/uiop/run-program.lisp
+++ b/uiop/run-program.lisp
@@ -475,9 +475,7 @@ It returns a process-info plist with possible keys:
                   ,if-error-output-exists)
                 #+lispworks `(:save-exit-status t)
                 #+mkcl `(:directory ,(native-namestring directory))
-                #+sbcl `(:search t
-                         :if-output-does-not-exist :create
-                         :if-error-does-not-exist :create)
+                #+sbcl `(:search t)
                 #-sbcl keys
                 #+sbcl (if directory keys (remove-plist-key :directory keys))))))
            (process-info-r ()))