diff --git a/THANKS b/THANKS
index 403ff974a..9e18e5986 100644
--- a/THANKS
+++ b/THANKS
@@ -21,6 +21,7 @@ Contributors since the last release:
 For fixes or providing information which led to a fix:
 
           David Allouche
+         Andrew Bagdanov
 	 Martin Baulig
         Fabrice Bauzac
         Sylvain Beucler
diff --git a/module/ice-9/buffered-input.scm b/module/ice-9/buffered-input.scm
index 05e9255c0..c35fdb87e 100644
--- a/module/ice-9/buffered-input.scm
+++ b/module/ice-9/buffered-input.scm
@@ -64,7 +64,10 @@ with @var{continuation?} set to @code{#t}."
 	      (lambda ()
 		(cond 
 		 ((eof-object? read-string)
-		  read-string)
+                  (let ((eof read-string))
+                    (set! read-string "")
+                    (set! string-index -1)
+                    eof))
 		 ((>= string-index (string-length read-string))
 		  (set! string-index -1)
                   (get-character))