From 49852a87fc543170a5b7479eade962cf3b995760 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 9 Apr 2009 12:43:10 +0000
Subject: [PATCH] fix forward-word bug for words > 30 characters

svn: r14475
---
 collects/mred/private/wxme/wordbreak.ss | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/collects/mred/private/wxme/wordbreak.ss b/collects/mred/private/wxme/wordbreak.ss
index 03b428c9d9..ea2d0881b7 100644
--- a/collects/mred/private/wxme/wordbreak.ss
+++ b/collects/mred/private/wxme/wordbreak.ss
@@ -129,7 +129,8 @@
         
         (let ploop ([phase1-complete? #f]
                     [text text]
-                    [tend tend])
+                    [tend tend]
+                    [end end])
           (let-values ([(end phase1-complete?)
                         (if phase1-complete?
                             (values end #t)
@@ -147,5 +148,6 @@
                   (if (and (= tend end) (not (= lend tend)))
                       (ploop phase1-complete?
                              (send win get-text lstart (+ lstart lend))
-                             lend)
+                             lend
+                             end)
                       (set-box! endp (+ end lstart)))))))))))