diff --git a/process-spec.lisp b/process-spec.lisp
index 3000781741e4ae780fe6e46f2d7756e2f52510c4..e927358f54a537d3784ad0c7b3153ed6cda02ccc 100644
--- a/process-spec.lisp
+++ b/process-spec.lisp
@@ -244,8 +244,8 @@
              (f '< fd pn
                 '(:input :if-does-not-exist :error)))
            (`(<> ,pn) (c `(<> 0 ,pn)))
-           (`(<> ,pn)
-             (f '<> 0 pn
+           (`(<> ,fd ,pn)
+             (f '<> fd pn
                 '(:io :if-exists :overwrite :if-does-not-exist :error)))
            (`(> ,pn) (c `(> 1 ,pn)))
            (`(> ,fd ,pn)