diff --git a/collects/mred/private/wxme/editor-canvas.ss b/collects/mred/private/wxme/editor-canvas.ss
index db19417a49..17c4eb3334 100644
--- a/collects/mred/private/wxme/editor-canvas.ss
+++ b/collects/mred/private/wxme/editor-canvas.ss
@@ -1046,7 +1046,7 @@
     (let ([v (do-scroll-to localx localy w h refresh? bias #t #t #f)])
       (and v (car v))))
 
-  (define/private (do-scroll-to localx localy w h refresh? bias prev? next? only-focus?)
+  (define/public (do-scroll-to localx localy w h refresh? bias prev? next? only-focus?)
     (and canvas
          (or (and (not (send canvas is-focus-on?))
                   (or
diff --git a/collects/mred/private/wxme/private.ss b/collects/mred/private/wxme/private.ss
index 672312a5ab..b7fba6ba78 100644
--- a/collects/mred/private/wxme/private.ss
+++ b/collects/mred/private/wxme/private.ss
@@ -107,7 +107,8 @@
 
 ;; editor-canvas-editor-admin%
 (define-local-member-name
-  do-get-canvas)
+  do-get-canvas
+  do-scroll-to)
 
 ;; editor-stream%
 (define-local-member-name