-

private/web-racket.rkt

@@ -6,6 +6,7 @@
            "menu.rkt"
            "../utils/sprintf.rkt"
            "webui-wire-download.rkt"
+           "../utils/utils.rkt"
            html-printer
            (prefix-in g: gregor)
            (prefix-in g: gregor/time)
@@ -668,6 +669,12 @@
         (let ((bdir (string-trim base-dir)))
           (when (or (string=? bdir "") (string=? bdir ".") (string=? bdir ".."))
             (set! bdir (path->string (find-system-path 'home-dir))))
+          (while (and (> (string-length bdir) 0)
+                      (or (string-suffix? bdir "\\") (string-suffix? bdir "/")))
+                 (set! bdir (substring bdir 0 (- (string-length bdir) 1)))
+                 )
+          (when (string=? bdir "")
+            (set! bdir (path->string (find-system-path 'home-dir))))
           (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))