From 13d7e264c4c78a0a029a4a1427b2130ac262d6be Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 27 Oct 2014 16:37:14 -0500
Subject: [PATCH] fix incorrect interpretation of 'eof in new find-string
 implementation

---
 pkgs/gui-pkgs/gui-lib/mred/private/wxme/text.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pkgs/gui-pkgs/gui-lib/mred/private/wxme/text.rkt b/pkgs/gui-pkgs/gui-lib/mred/private/wxme/text.rkt
index dbe60ae787..65868f3565 100644
--- a/pkgs/gui-pkgs/gui-lib/mred/private/wxme/text.rkt
+++ b/pkgs/gui-pkgs/gui-lib/mred/private/wxme/text.rkt
@@ -3559,7 +3559,7 @@
                                      just-one? beginning-of-match? case-sens? recur-inside?)
     (define end 
       (cond
-        [(equal? _end 'eof) (last-position)]
+        [(equal? _end 'eof) (if (equal? direction 'forward) (last-position) 0)]
         [else _end]))
     (define start
       (cond