From 10231812c22b4d3f97b4a98cadf638182b2d9200 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 8 Feb 1999 19:56:43 +0000 Subject: [PATCH] . original commit: aa5a10056776b334a81360cf747e90666f2f0418 --- src/mred/wrap/mred.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss index 080ca9c7..70b0e7ee 100644 --- a/src/mred/wrap/mred.ss +++ b/src/mred/wrap/mred.ss @@ -4339,7 +4339,7 @@ (check-string/false who directory) (check-string/false who filename) (check-string/false who extension) (check-style who #f null style) (if (not (eq? (system-type) 'unix)) - (wx:file-selector message directory filename extension "*.*" (if put? 'put 'get) parent) + (wx:file-selector message directory filename extension "*.*" (if put? 'put 'get) (mred->wx parent)) (letrec ([ok? #f] [typed-name #f] [dir (or directory last-visted-directory (current-directory))]