tweak to the search results printout

svn: r15652
2009-08-01 02:48:07 +00:00 · 2009-08-01 02:48:07 +00:00 · 4592139c0e
commit 4592139c0e
parent 021a65020f
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