From d322e3ab0594299235bc99821bf17ab417ab672f Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Tue, 24 Feb 2026 00:27:18 +0100 Subject: [PATCH] - --- private/web-racket.rkt | 2 ++ 1 file changed, 2 insertions(+) diff --git a/private/web-racket.rkt b/private/web-racket.rkt index 7535e2c..5a70a83 100644 --- a/private/web-racket.rkt +++ b/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))