diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss
index 9f6fff3fb9..bbee565fb6 100644
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@@ -1634,7 +1634,8 @@
                   (- (unbox by) (/ ch 2))
                   cw
                   ch
-                  #t)))))
+                  #t)
+            (send d-text set-position pos)))))
     
     (define/public (delegate-moved)
       (let ([startb (box 0)]