diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss
index 6955f377..56788081 100644
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@@ -1096,51 +1096,58 @@
       (define text-mode-mixin
         (mixin (mode:surrogate-text<%>) (-text-mode<%>)
           (rename [super-on-focus on-focus])
-          (define/override (on-focus text on?)
-            (super-on-focus text on?)
+          (define/override (on-focus text super-call on?)
+            (super-on-focus text super-call on?)
+            (super-call on?)
             (send text highlight-parens (not on?)))
           
           (rename [super-after-change-style after-change-style])
-          (define/override (after-change-style text start len)
+          (define/override (after-change-style text super-call start len)
             (unless (send text local-edit-sequence?)
               (unless (send text get-styles-fixed)
                 (when (send text has-focus?)
                   (send text highlight-parens))))
-            (super-after-change-style text start len))
+            (super-call start len)
+            (super-after-change-style text super-call start len))
           
           (rename [super-after-edit-sequence after-edit-sequence])
-          (define/override (after-edit-sequence text)
-            (super-after-edit-sequence text)
+          (define/override (after-edit-sequence text super-call)
+            (super-after-edit-sequence text super-call)
+            (super-call)
             (when (send text has-focus?)
               (send text highlight-parens)))
           
           (rename [super-after-insert after-insert])
-          (define/override (after-insert text start size)
+          (define/override (after-insert text super-call start size)
             (unless (send text local-edit-sequence?)
               (when (send text has-focus?)
                 (send text highlight-parens)))
-            (super-after-insert text start size))
+            (super-call start size)
+            (super-after-insert text super-call start size))
           
           (rename [super-after-delete after-delete])
-          (define/override (after-delete text start size)
+          (define/override (after-delete text super-call start size)
             (unless (send text local-edit-sequence?)
               (when (send text has-focus?)
                 (send text highlight-parens)))
-            (super-after-delete text start size))
+            (super-call start size)
+            (super-after-delete text super-call start size))
           
           (rename [super-after-set-size-constraint after-set-size-constraint])
-          (define/override (after-set-size-constraint text)
+          (define/override (after-set-size-constraint text super-call)
             (unless (send text local-edit-sequence?)
               (when (send text has-focus?)
                 (send text highlight-parens)))
-            (super-after-set-size-constraint text))
+            (super-call)
+            (super-after-set-size-constraint text super-call))
           
           (rename [super-after-set-position after-set-position])
-          (define/override (after-set-position text)
+          (define/override (after-set-position text super-call)
             (unless (send text local-edit-sequence?)
               (when (send text has-focus?)
                 (send text highlight-parens)))
-            (super-after-set-position text))
+            (super-call)
+            (super-after-set-position text super-call))
 
           (rename [super-on-disable-surrogate on-disable-surrogate])
           (define/override (on-disable-surrogate text)