*** env/command.scm.original    Tue Nov 26 15:59:38 1996
--- env/command.scm     Tue Nov 26 15:59:46 1996
***************
*** 546,552 ****
                ((char=? (string-ref line 0) #\n) #f)
                (else (loop count)))))))
  
! (define *y-or-n-eof-count* 100)
  
  (define (read-line port)
    (let loop ((l '()))
--- 546,552 ----
                ((char=? (string-ref line 0) #\n) #f)
                (else (loop count)))))))
  
! (define *y-or-n-eof-count* 0)
  
  (define (read-line port)
    (let loop ((l '()))