..

original commit: 2d2506d42074250586c10f0bee00db50cc86bdb0

collects/framework/private/editor.ss

@@ -304,7 +304,8 @@
                                  "")])
                (for-each (lambda (canvas)
                            (let ([tlw (send canvas get-top-level-window)])
-                             (when (is-a? tlw frame:editor<%>)
+                             (when (and (is-a? tlw frame:editor<%>)
+                                        (eq? this (send tlw get-editor)))
                                (send tlw set-label filename))))
                          (get-canvases))))]
 	  (override after-save-file after-load-file set-filename get-keymaps)

collects/framework/private/text.ss

@@ -570,8 +570,7 @@
             [(is-a? s string-snip%)
              (loop (send s next))]
             [else #f])))
-      (override on-save-file)
-      (define (on-save-file name format)
+      (define/override (on-save-file name format)
         (let ([all-strings? (all-string-snips)])
           (cond
             [(and all-strings?