diff --git a/scsh/tty.scm b/scsh/tty.scm
index f3008f3..cf8327c 100644
--- a/scsh/tty.scm
+++ b/scsh/tty.scm
@@ -107,8 +107,9 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Retrieve tty-info bits from a tty. Arg defaults to current input port.
 
-(define (tty-info fdport)
-  (let ((control-chars (make-string num-ttychars)))
+(define (tty-info . maybe-fdport)
+  (let ((control-chars (make-string num-ttychars))
+	(fdport (:optional maybe-fdport (current-input-port))))
     (apply 
      (lambda (iflag oflag cflag lflag ispeed-code ospeed-code)
       (make-%tty-info control-chars