tweak to the search results printout

svn: r15652 original commit: 4592139c0eec3189bb135208063666a17a1d2fc8
2009-08-01 02:48:07 +00:00 · 2009-08-01 02:48:07 +00:00 · 54a69ab713
commit 54a69ab713
parent e9cde9aaa6
1 changed files with 1 additions and 1 deletions
--- 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