diff --git a/collects/framework/private/editor.ss b/collects/framework/private/editor.ss
index a07bcfb8..2df16339 100644
--- a/collects/framework/private/editor.ss
+++ b/collects/framework/private/editor.ss
@@ -181,10 +181,10 @@
 	  
 	  [define has-focus #f]
 	  (rename [super-on-focus on-focus])
-	  (override on-focus)
-	  [define on-focus
+	  [define/override on-focus
 	    (lambda (x)
-	      (set! has-focus x))]
+              (set! has-focus x)
+              (super-on-focus x))]
 	  (public has-focus?)
 	  [define has-focus?
 	    (lambda ()
@@ -213,9 +213,8 @@
 	  [define edit-sequence-queue null]
 	  [define edit-sequence-ht (make-hash-table)]
 	  [define in-local-edit-sequence? #f]
-	  (public local-edit-sequence? run-after-edit-sequence extend-edit-sequence-queue)
-	  [define local-edit-sequence? (lambda () in-local-edit-sequence?)]
-	  [define run-after-edit-sequence
+	  [define/public local-edit-sequence? (lambda () in-local-edit-sequence?)]
+	  [define/public run-after-edit-sequence
 	    (case-lambda 
 	     [(t) (run-after-edit-sequence t #f)]
 	     [(t sym)
@@ -249,7 +248,7 @@
                            (void)])))
 		  (t))
 	      (void)])]
-	  [define extend-edit-sequence-queue
+	  [define/public extend-edit-sequence-queue
 	    (lambda (l ht)
 	      (hash-table-for-each ht (lambda (k t)
 					(hash-table-put! 
diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss
index 6d3ef39b..ce35009f 100644
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@@ -1111,9 +1111,9 @@
           
           (rename [super-after-edit-sequence after-edit-sequence])
           (define/override (after-edit-sequence text super-call)
-             (super-after-edit-sequence text super-call)
-             (when (send text has-focus?)
-               (send text highlight-parens)))
+            (super-after-edit-sequence text super-call)
+            (when (send text has-focus?)
+              (send text highlight-parens)))
           
           (rename [super-after-insert after-insert])
           (define/override (after-insert text super-call start size)