From faa0632de81d836f62e4f86c0a28fca36022b75f Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Thu, 20 Jan 2011 20:52:50 -0700
Subject: [PATCH] Seems to fix Robby's issue with DrRacket REPL

---
 collects/xml/private/reader.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/xml/private/reader.rkt b/collects/xml/private/reader.rkt
index b635c6b468..51ce4c7a9f 100644
--- a/collects/xml/private/reader.rkt
+++ b/collects/xml/private/reader.rkt
@@ -174,7 +174,7 @@
 (define (lex in pos)
   (let ([c (peek-char-or-special in)])
     (cond
-      [(eof-object? c) (EOF (pos) (pos))]
+      [(eof-object? c) (read-char in) (EOF (pos) (pos))]
       [(eq? c #\&) (lex-entity in pos)]
       [(eq? c #\<) (lex-tag-cdata-pi-comment in pos)]
       [(not (char? c)) (read-char-or-special in)]