From f64fc2b393b1857920351b07d8a7f9db47e1fd06 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 1 May 2004 15:47:20 +0000
Subject: [PATCH] .

original commit: 8b1cc3b9662f9bef64a3dd58fa169b5d59dda913
---
 collects/framework/private/text.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss
index eb482460..3f7a6da6 100644
--- a/collects/framework/private/text.ss
+++ b/collects/framework/private/text.ss
@@ -1126,7 +1126,7 @@ WARNING: printf is rebound in the body of the unit to always
                     (let* ([data-hd (queue-first data)]
                            [reader-hd (queue-first readers)]
                            [reader-succeed (car reader-hd)]
-                           [reader-fail (cdr reader-hd)])
+                           [reader-fail (cadr reader-hd)])
                       (object-wait-multiple
                        #f
                        (make-wrapped-waitable