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