diff --git a/collects/framework/frame.ss b/collects/framework/frame.ss
index c7659690..2dd271d2 100644
--- a/collects/framework/frame.ss
+++ b/collects/framework/frame.ss
@@ -656,7 +656,7 @@
 	 (lambda (item control)
 	   (let* ([b (box #f)]
 		  [edit (get-editor)]
-		  [filename (get-filename b)])
+		  [filename (send edit get-filename b)])
 	     (if (or (not filename) (unbox b))
 		 (bell)
 		 (let ([start