@ -457,7 +457,8 @@
[else (current-directory)])])
(match maybe-dir
[(? directory-exists? dir) dir]
[_ (define-values (dir name _) (split-path maybe-dir))
[(app path->complete-path cp)
(define-values (dir name _) (split-path cp))
dir])))
(unless (directory-exists? base-dir)