diff --git a/lib/chibi/process.scm b/lib/chibi/process.scm
index 4c6b38dd..56977c36 100644
--- a/lib/chibi/process.scm
+++ b/lib/chibi/process.scm
@@ -82,13 +82,13 @@
             ((not pid)
              (error "couldn't fork"))
             ((zero? pid)  ;; child
-             (close-file-descriptor (car in-pipe))
+             (close-file-descriptor (cadr in-pipe))
              (close-file-descriptor (car out-pipe))
              (close-file-descriptor (car err-pipe))
-             (duplicate-file-descriptor-to (cadr in-pipe) 0)
+             (duplicate-file-descriptor-to (car in-pipe) 0)
              (duplicate-file-descriptor-to (cadr out-pipe) 1)
              (duplicate-file-descriptor-to (cadr err-pipe) 2)
-             (close-file-descriptor (cadr in-pipe))
+             (close-file-descriptor (car in-pipe))
              (close-file-descriptor (cadr out-pipe))
              (close-file-descriptor (cadr err-pipe))
              (execute (car command-ls) command-ls))