From d7a6e0eb4f62c4bd109f46c1ee23b4e48373423a Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Fri, 19 Aug 2011 08:41:21 -0700
Subject: [PATCH] Fixed a last-minute copy/yank.

---
 src/runtime/usrint.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/runtime/usrint.scm b/src/runtime/usrint.scm
index 9886d9cdb..4ab8ec68b 100644
--- 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 ()
-- 
2.25.1