diff --git a/THANKS b/THANKS
index 1d94a5a63..5b590fd91 100644
--- a/THANKS
+++ b/THANKS
@@ -37,6 +37,7 @@ For fixes or providing information which led to a fix:
          John W Eaton
 	Clinton Ebadi
           David Fang
+          Barry Fishman
         Charles Gagnon
           Peter Gavin
            Eric Gillespie, Jr
diff --git a/test-suite/tests/popen.test b/test-suite/tests/popen.test
index 08bfa7cb4..9cc68f21c 100644
--- a/test-suite/tests/popen.test
+++ b/test-suite/tests/popen.test
@@ -77,7 +77,7 @@
     (let* ((p2c (pipe))
            (port (with-input-from-port (car p2c)
                    (lambda ()
-                     (open-input-pipe "read && echo $REPLY")))))
+                     (open-input-pipe "read line && echo $line")))))
       (display "hello\n" (cdr p2c))
       (force-output (cdr p2c))
       (let ((result (eq? (read port) 'hello)))