diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss
index d0b1e2fdb9..9b81a0c392 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