$NetBSD: patch-ae,v 1.4 2001/10/02 11:07:15 seb Exp $

--- env/command.scm.orig	Tue Aug 10 20:17:59 1999
+++ env/command.scm
@@ -546,7 +546,7 @@
               ((char=? (string-ref line 0) #\n) #f)
               (else (loop count)))))))
 
-(define *y-or-n-eof-count* 100)
+(define *y-or-n-eof-count* 0)
 
 (define (read-line port)
   (let loop ((l '()))
