From 8903de5a123dff1b2d461389dc6c9d0a2de8c316 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 24 Dec 2010 15:56:10 -0600 Subject: [PATCH] inserted a coercion string->path (there is one on the line above so this is probably the right thing) closes PR 11563 --- collects/mred/private/wx/win32/filedialog.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mred/private/wx/win32/filedialog.rkt b/collects/mred/private/wx/win32/filedialog.rkt index df03b2cad0..6a1ecd4aa7 100644 --- a/collects/mred/private/wx/win32/filedialog.rkt +++ b/collects/mred/private/wx/win32/filedialog.rkt @@ -185,7 +185,7 @@ #f (map (lambda (p) (build-path (car strs) p)) (cdr strs)))) - (cast (OPENFILENAME-lpstrFile ofn) _pointer _string/utf-16))) + (string->path (cast (OPENFILENAME-lpstrFile ofn) _pointer _string/utf-16)))) (when directory (free (OPENFILENAME-lpstrInitialDir ofn))) (when message