(define (directory-files . optional-args)
  (let-optionals optional-args
      ((dir (cwd))
       (dotfiles? #f))
    (map (lambda (file)
	   (make-fs-object file dir))
	 (scsh-directory-files dir dotfiles?))))