-

private/web-racket.rkt

@@ -675,6 +675,8 @@
                  )
           (when (string=? bdir "")
             (set! bdir (path->string (find-system-path 'home-dir))))
+          (when (or (string-suffix? bdir "\\") (string-suffix? bdir "/"))
+            (set! bdir (substring bdir 0 (- (string-length bdir) 1))))
           (ww-debug (format "ww-choose-dir ~a ~a ~a" win-id caption bdir))
           (let ((r (ww-choose-dir win-id caption bdir)))
             (ww-debug (format "choose-dir: ~a" r))