From 54a69ab713c24cd910342e357604cbcde346588b Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 1 Aug 2009 02:48:07 +0000
Subject: [PATCH] tweak to the search results printout

svn: r15652

original commit: 4592139c0eec3189bb135208063666a17a1d2fc8
---
 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 d0b1e2fd..9b81a0c3 100644
--- a/collects/framework/private/text.ss
+++ b/collects/framework/private/text.ss
@@ -1135,7 +1135,7 @@ WARNING: printf is rebound in the body of the unit to always
              =>
              (λ (next)
                (cond
-                 [(< next (get-start-position))
+                 [(<= next (get-start-position))
                   (loop (+ next 1)
                         (+ count 1))]
                  [else