1 files changed, 4 insertions(+), 3 deletions(-)

M cli.scm

@@ 120,9 120,10 @@
       (open-input-file x)))
 
 (define (input x)
-  (if (equal? x "-")
-      (read-string)
-      (with-input-from-file x read-string)))
+  (let ((s (if (equal? x "-")
+               (read-string)
+               (with-input-from-file x read-string))))
+    (if (eof-object? s) "" s)))
 
 (define (retrieve-paged crud #!optional (limit 50))
   (let loop ((crud crud) (count 0))