...

original commit: 542a5cb8f2a7f7adb4315c3857beb33478a1cd6a

collects/framework/frame.ss

@@ -71,7 +71,10 @@
 	      [super-on-close on-close]
 	      [super-on-focus on-focus])
       (public
-        [get-filename (lambda () #f)])
+        [get-filename
+         (case-lambda
+          [() (get-filename #f)]
+          [(b) #f])])
       (private
 	[after-init? #f])
       (override
@@ -577,9 +580,11 @@
 	     
       (override
         [get-filename
-         (lambda ()
+         (case-lambda
+          [() (get-filename #f)]
+          [(b)
            (let ([e (get-editor)])
-             (and e (send e get-filename))))]
+             (and e (send e get-filename b)))])]
 	[on-close
 	 (lambda ()
 	   (super-on-close)