diff --git a/gash/parser.scm b/gash/parser.scm
index 74ba107..1547bcb 100644
--- a/gash/parser.scm
+++ b/gash/parser.scm
@@ -824,7 +824,7 @@ port if @var{port} is unspecified)."
   (define stop? #f)
   (define (stop!) (set! stop? #t))
 
-  (let* ((port (or port (current-output-port))))
+  (let* ((port (or port (current-input-port))))
     (parse port #:lex-hook (lambda (lex) (if stop? '*eoi* (lex)))
            #:command-hook stop!)))