(if (legal-script-filename? filename config)
(let* ((sexp (with-input-from-file filename read))
(script-result (with-selector-dir
- selector config
+ (pathname-directory selector) config
(lambda ()
(apply (eval sexp) arguments)))))
(when (pair? script-result)