Fixed a last-minute copy/yank.

diff --git a/src/runtime/usrint.scm b/src/runtime/usrint.scm
index 9886d9cdb2b9e7a4024f92b7d69707d662edad00..4ab8ec68bbe63d3da1d7b06cab9d61e14ec2d32b 100644 (file)
--- a/src/runtime/usrint.scm
+++ b/src/runtime/usrint.scm
@@ -255,7 +255,7 @@ USA.
                    (char=? char #\return)
                    (char=? char #\linefeed))
                (receiver input)
-               (set-string-length! str (string-maximum-length str))
+               (set-string-length! input (string-maximum-length input))
                (string-fill! input #\delete)
                (port/with-output-terminal-mode port 'COOKED
                  (lambda ()