- (let ((sexp (with-input-from-file filename read)))
- (serve-records (with-selector-dir selector config
- (lambda ()
- (apply (eval sexp) arguments)))
- selector config)
+ (let* ((sexp (with-input-from-file filename read))
+ (selector-dir (pathname-directory selector)))
+ (serve-records (with-selector-dir
+ selector config
+ (lambda ()
+ (apply (eval sexp) arguments)))
+ selector-dir config)