diff --git a/gui-lib/mred/private/wxme/editor-canvas.rkt b/gui-lib/mred/private/wxme/editor-canvas.rkt
index c3490e06..60c9459d 100644
--- a/gui-lib/mred/private/wxme/editor-canvas.rkt
+++ b/gui-lib/mred/private/wxme/editor-canvas.rkt
@@ -981,7 +981,8 @@
             (let-boxes ([fx 0]
                         [old-fy 0]
                         [new-fy 0])
-                (begin
+                (let ([x (min x scroll-width)]
+                      [y (min y scroll-height)])
                   (convert-scroll-to-location x y fx new-fy)
                   (convert-scroll-to-location old-x old-y #f old-fy))
               (let-boxes ([vx 0][vy 0][vw 0][vh 0])