From 189a8c49e0df7b9f7d3a1036783663f15835dda2 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 1 Sep 1999 21:54:35 +0000 Subject: [PATCH] ... original commit: 08b2d560f15bcd9afbc9a3b8d958b6297b29a9e4 --- collects/framework/frame.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/framework/frame.ss b/collects/framework/frame.ss index 571b64c1..74819e4a 100644 --- a/collects/framework/frame.ss +++ b/collects/framework/frame.ss @@ -237,8 +237,9 @@ (public [save-as (opt-lambda ([format 'same]) - (let ([file (parameterize ([finder:dialog-parent-parameter this]) - (finder:put-file))]) + (let* ([name (send (get-editor) get-filename)] + [file (parameterize ([finder:dialog-parent-parameter this]) + (finder:put-file name))]) (when file (send (get-editor) save-file file format))))]) (inherit get-menu-item%)